Jakie są znane programy i równania jedno-liniowe lub dwuwarstwowe? [Zamknięte]

Eksperymentuję z nową platformą i próbuję napisać program, który zajmuje się łańcuchami nie dłuższymi niż 60 znaków i chciałbym zapełnić magazyn danych niektórymi znanymi lub dobrze znanymi małymi fragmentami kodu i równania, ponieważ programowanie i matematyka są zgodne z tematem mojego oprogramowania. Kod może być w dowolnym języku i równaniach z dowolnej dyscypliny matematyki, pod warunkiem, że ich długość wynosi mniej niż 60 znaków. Podejrzewam, że ludzie wybiją sobie mózg na ten temat.

Na przykład,

#include<stdio.h>
int main(){printf ("Hi World\n");return 0;}

60 znaków dokładnie!

Dziękuję bardzo za twoją mądrość!

Klasyczna procedura kopiowania ciągów C znana jest coraz mniej osób przez te dni:

while (*d++ = *s++);

nie jedna linia, ale przedstawiam The Last Last Bug Bug:

    status = GetRadarInfo();
    if (status = 1)
      LaunchNukes();

Widzę, jak Conway's Game of Life w APL często się unosi:

Dodatkowym bonusem jest to, że zapewni to poprawną obsługę Unicode.

Zmodyfikowana wersja słynnego jedno liniowego Perla:

/^.?$|^(..+?)\1+$/

To wyrażenie regularne dopasowuje ciągi, których długość jest liczbą pierwszą.

Oryginalna wersja to:

/^1?$|^(11+?)\1+$/

który pasuje do ciągów znaków składających się z pierwszej liczby 1.

Szybkie sortowanie:

qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)

Jeśli lista jest pusta, posortowany wynik jest pustą listą.

Jeśli lista zaczyna się od elementu x, a resztą listy jest xs, wówczas posortowany wynik jest listą składającą się z posortowanej listy składającej się ze wszystkich elementów w xs mniejszych niż x połączonych z elementem x połączonym z posortowaną listą wszystkich elementy w xs większe niż x.

(lub innymi słowy - podziel na dwa stosy, wszystkie mniejsze niż x i wszystkie większe niż x, posortuj je oba i utwórz listę ze stosem mniejszym niż, elementem x i stosem większym niż).

Dość łatwo przewyższa zrozumiałość wersji C.

1. Funkcja Ackermana . Implementacja wersji Ackermann-Péter powinna mieścić się w 60 znakach :)

2. Ta piękna stała szesnastkowa: 0x5f3759df. Jest to serce najbardziej kodu WTFing, jaki kiedykolwiek widziałem: szybki odwrotny pierwiastek kwadratowy .

3. Słynna zamiana XOR .

4. question = /(bb|[^b]{2})/

Kiedy po raz pierwszy wymyśliłem bash Forkbomb, pomyślałem, że to naprawdę słodkie.

:(){ :|:& };:

print "hello world\n";

i jego pochodne wydają się być popularne. :-)

Ponieważ wspominasz równania, ten należy do twojej listy:

e^{i\pi}+1=0

( Wolfram Alpha renderowania : )

Jak wykryć liczby parzyste:

x % 2 == 0

import this w Pythonie.

EDYTUJ, ponieważ komentarze nie mogą zawierać podziałów linii: Dla tych, którzy nie mają przydatnego interpretera Pythona, jest to wynik

Beautiful is better than ugly.
Explicit is better than implicit.
Simple is better than complex.
Complex is better than complicated.
Flat is better than nested.
Sparse is better than dense.
Readability counts.
Special cases aren't special enough to break the rules.
Although practicality beats purity.
Errors should never pass silently.
Unless explicitly silenced.
In the face of ambiguity, refuse the temptation to guess.
There should be one-- and preferably only one --obvious way to do it.
Although that way may not be obvious at first unless you're Dutch.
Now is better than never.
Although never is often better than *right* now.
If the implementation is hard to explain, it's a bad idea.
If the implementation is easy to explain, it may be a good idea.
Namespaces are one honking great idea -- let's do more of those!

Nie do końca 2 linie, ale powiedziałbym, że jest to dość znane:

void swap(float* x, float* y)
{
    float t;
    t = *x;
    *x = *y;
    *y = t;
}

W rzeczywistości niektóre języki mogą to opisać w jednym wierszu. Lua przychodzi na myśl, ale jest ich więcej.

x, y = y, x

Moim ulubionym przykładem rachunku lambda jest kombinator Y:

Y = λf.(λx.f (x x)) (λx.f (x x))

Z ćwiczenia w K&R, oto funkcja, która zwraca liczbę bitów ustawionych w podanej liczbie. Przy 58 znakach:

int bits(int n){int b=0;while(n){n=n&(n-1);b++;}return b;}

Zajmuje to czas proporcjonalny do liczby ustawionych bitów. Oto część „ah ha”

n = n & (n - 1)

Usuwa najbardziej prawy ustawiony bit z n.

Rekurencyjny trójkąt Pascala w jednej linii (Haskell)

  r n=take(n+1)$iterate(\a->zipWith(+)(0:a)$a++[0])[1]

52 znaki, dodaj spacje do smaku. Dzięki uprzejmości „Ephemient” w komentarzu tutaj .

Myślałem, że to lepszy przykład niż tajemnicze, ale krótkie rozwiązania w J i K (chociaż nie jestem jeszcze użytkownikiem Haskell).

Unix Roulette (NIEBEZPIECZEŃSTWO!)

Dzięki uprzejmości odpowiedzi Bigown w wątku dowcipu (i komentarz):

[ $[ $RANDOM % 6 ] == 0 ] && rm -rf /* || echo Click #Roulette

(Ma on 62 znaki, więc możesz usunąć komentarz (czy to zadziałałoby w ten sposób?) Lub niektóre nieistotne spacje.)

Infinite Fibonacci Sequence (Haskell)

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

DO 10 I=1.3

To jeden z najdroższych błędów w historii. Ta instrukcja Fortran przypisuje wartość zmiennoprzecinkową 1.3 do nazwanej zmiennej DO10I.

Prawidłowy kod - nagłówek powtarzających się instrukcji pętli, aż instrukcja zostanie oznaczona jako 10, a zmienna pętli Iprzyjmuje wartości 1, 2, 3:

DO 10 I=1,3

Urządzenie Duffa :

void send(short *to, short *from, int count)
{
    int n = (count +7 ) / 8;

    switch (count % 8) {
    case 0: do {    *to = *from++;
    case 7:         *to = *from++;
    case 6:         *to = *from++;
    case 5:         *to = *from++;
    case 4:         *to = *from++;
    case 3:         *to = *from++;
    case 2:         *to = *from++;
    case 1:         *to = *from++;
        } while(--n > 0);
    }
}

Tom Duff rozwinął zmapowany w pamięci port, zapisując go w jednym z najdziwniejszych konstruktorów C, jakie widział świat.

Przychodzi mi na myśl wszystko, co wiąże się z Hello World. Możesz wybrać różne warianty, jeśli planujesz przechowywanie wielu języków.

Czegoś więcej nietrywialne, tam Fibbonacci .

val (minors, adults) = people.partition(_.age < 18)

Powyższa linia podziałów kodu Scala people(lista Persons) na dwie listy w zależności od ich wieku.

Wykonanie tej samej czynności w Javie wymaga dużej części kodu:

List<Person> minors = new ArrayList<Person>();
List<Person> adults = new ArrayList<Person>();
for(Person p : people) {
  if(p.age < 18) {
    minors.add(p);
  } else {
    adults.add(p);
  }
}

Zamiana wartości dwóch zmiennych bez użycia trzeciej zmiennej. To jedna z pierwszych rzeczy w programowaniu, które powiedziano mi i pomyślałem „Hmm ... to fajnie”

int a,b; 
b=a-b;
a=a-b;
b=a+b;

Czarna magia od Johna Carmacka

float Q_rsqrt( float number )
{
    long i;
    float x2, y;
    const float threehalfs = 1.5F;

    x2 = number * 0.5F;
    y  = number;
    i  = * ( long * ) &y;                       // evil floating point bit level hacking
    i  = 0x5f3759df - ( i >> 1 );               // what the ****?
    y  = * ( float * ) &i;
    y  = y * ( threehalfs - ( x2 * y * y ) );   // 1st iteration
//  y  = y * ( threehalfs - ( x2 * y * y ) );   // 2nd iteration, this can be removed

    return y;
}

Największa liczba, która może być reprezentowana przez 8 bajtów (Python)

print '\n'.join("%i Byte = %i Bit = largest number: %i" % (j, j*8, 256**j-1) for j in (1 << i for i in xrange(8)))

1. Operator warunkowy :

   minVal = (a <b)? a: b;

2. Sprawa przełącznik

3. dla każdej pętli [Java]

Ta Quine z pliku żargonu w C:

char * f = "char * f =% c% s% c; main () {printf (f, 34, f, 34,10);}% c"; main () {printf (f, 34, f, 34,10);}

Jest tam również wersja LISP, ale możesz znaleźć wiele innych unoszących się wokół, w prawie dowolnym języku, który możesz zobrazować ...

tożsamość eulera, która łączy najpiękniejsze liczby we wszechświecie matematycznym: 1, 0, e, i oraz π: e ^ i (π) + 1 = 0

Miałem dobry i zapisałem go na marginesie.

int gcd(int a, int b)
{
   while(b>0)
   {
      int t = a%b;
      a=b;
      b=t;
   }
   return a;
}

Prawdopodobnie nie sławny, ale jeden z moich ulubionych. Dla większości nie od razu wiadomo, dlaczego to działa.

Jest to nieco ponad 60 znaków, ale tak naprawdę zależy od nazewnictwa zmiennych (więc to uwzględniam!)

niech readLines (rdr: StreamReader) =
      seq {podczas gdy rdr.EndOfStream nie
                daje rdr.ReadLine ()}

Przyjemna mała funkcja do odczytu pliku w sekwencji wiersz po wierszu w F #.