Які відомі однолінійні або дволінійні програми та рівняння? [зачинено]

Я експериментую з новою платформою і намагаюся написати програму, яка займається струнами, довжиною яких не більше 60 символів, і я хотів би заповнити сховище даних деякими відомими або відомими невеликими фрагментами коду та рівняння, оскільки програмування та математика йде разом з темою мого програмного забезпечення. Код може бути будь-якою мовою та рівняннями з будь-якої математичної дисципліни, лише якщо довжиною їх менше 60 символів. Я підозрюю, що люди зірвуться з цього приводу.

Наприклад,

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

60 символів рівно!

Дуже дякую за вашу мудрість!

Класичний порядок копіювання рядків на C відомий меншою кількістю менших днів тез:

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

не один рядок, але я представляю останню помилку C у світі:

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

Я бачу, що Гра життя Конуея в APL багато плаває:

Додатковий бонус полягає в тому, що це переконається, що ви правильно керуєте unicode.

Змінена версія відомого одноколісного Perl:

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

Цей регулярний вираз відповідає рядкам, довжина яких є простим.

Оригінальна версія:

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

який відповідає рядкам, що складається з простої кількості 1s.

Квікорт:

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

Якщо список порожній, відсортований результат - це порожній список.

Якщо список починається з елемента x, а решта списку - xs, то відсортованим результатом є список, що складається з відсортованого списку, що складається з усіх елементів у xs, менших від x, об'єднаних з елементом x, об'єднаним у відсортований список усіх елементів у xs, більших за x.

(або іншими словами - розділіть на дві палі, всі менші за x і всі більші за x, сортуйте їх обидва та створіть список із меншою, ніж палі, елементом x та купою, більшим ніж x).

Досить легко перемагає зрозумілість версії C.

1. Функція Акермана . Реалізація версії Ackermann-Péter повинна містити 60 символів :)

2. Ця прекрасна шестидесятична константа: 0x5f3759df. Це серце самого коду WTFing, який я коли-небудь бачив: швидкий зворотний квадратний корінь .

3. Знаменитий своп XOR .

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

Коли я вперше з'ясував баш-форкбомбу, я подумав, що це справді солодко.

:(){ :|:& };:

print "hello world\n";

і його похідні, здається, популярні. :-)

Оскільки ви згадуєте рівняння, це належить до вашого списку:

e^{i\pi}+1=0

( Wolfram Alpha рендеринг : )

Як виявити парні числа:

x % 2 == 0

import this в Python.

EDIT як коментарі не можуть містити розривів рядків: для тих, хто не підручний інтерпретатора Python, це вихід

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!

Не дуже 2 рядки, але я б сказав, що це досить відомо:

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

Насправді деякі мови можуть описати це в одному рядку. Луа приходить на думку, але є і більше.

x, y = y, x

Мій улюблений приклад обчислення лямбда - комбінатор Y:

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

З вправи K&R, ось функція, яка повертає, скільки біт встановлено в заданому числі. В 58 символів:

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

Це займає час, пропорційний кількості встановлених бітів. Частина "ах-ха" тут полягає в тому, що

n = n & (n - 1)

Вилучає крайній правий біт з n.

Рекурсивний трикутник Паскаля в одну лінію (Haskell)

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

П'ятдесят два символи, додайте пробілів за смаком. Люб’язно надано "Ефемієнту" у коментарі тут .

Я подумав, що це кращий приклад, ніж криптичні, але короткі рішення J та K (хоча я ще не користувач Haskell).

Рулетка Unix (НЕБЕЗПЕЧНО!)

Люб’язно відповідь Бігоуна в жартовій темі (та коментарі):

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

(Це 62 символи, тож ви можете видалити коментар (чи він би працював так?) Або деякі неістотні пробіли.)

Нескінченна послідовність Фібоначчі (Haskell)

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

DO 10 I=1.3

Це одна з найдорожчих помилок в історії. Це твердження Fortran присвоює змінній float значення 1,3 змінної з назвою DO10I.

Правильний код - заголовок циклу повторюваних висловлювань, поки оператор з міткою 10 і змінна циклу Iприймають значення 1, 2, 3:

DO 10 I=1,3

Пристрій Даффа :

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);
    }
}

Том Дафф розгорнув записане на карту пам’яті порт в одній з найбільш химерних конструкцій С, яку бачив світ.

Що-небудь робити з Hello World приходить на думку. Ви можете скористатися різними варіантами, якщо плануєте зберігати кілька мов.

Щось більш нетривіальне, є Фібоначчі .

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

Вищенаведений рядок розділів коду Scala people(список Personсписків) на два списки залежно від їх віку.

Для того, щоб зробити те ж саме на Java, потрібно наступний код:

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);
  }
}

Зміна значень двох змінних без використання третьої змінної. Це одне з перших речей у програмуванні, про що мені сказали і подумали "Хм ... це круто"

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

Чорна магія від Джона Кармака

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;
}

Найбільша кількість, яку можна представити 8 байт (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. Умовний оператор :

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

2. Корпус вимикача

3. для кожного циклу [Java]

Ця Квінка з файлу жаргону в C:

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

Там також є версія LISP, але ви можете знайти багато інших, що плавають навколо, майже на будь-якій мові, яку ви могли б зобразити ...

тотожність ейлера, яка пов'язує найкрасивіші числа математичного Всесвіту: 1, 0, e, i і π: e ^ i (π) + 1 = 0

У мене був гарний, і я записав це на полях.

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

Напевно, не відомий, але один із моїх улюблених. Для більшості не відразу видно, чому це працює.

Це трохи більше 60 символів, але це дійсно залежить від імені змінної (тому я включаю її!)

нехай readLines (rdr: StreamReader) =
      seq {поки не rdr.EndOfStream зробить
                вихід rdr.ReadLine ()}

Приємна маленька функція для читання файлу в послідовний рядок за рядком у F #.