Bazı ünlü bir liner veya iki liner programları ve denklemleri nelerdir? [kapalı]

Yeni bir platformla denemeler yapıyorum ve 60 karakterden uzun olmayan dizelerle ilgilenen bir program yazmaya çalışıyorum ve veri deposunu ünlü ya da tanınmış küçük kod parçalarıyla doldurmak istiyorum. denklemler, programlama ve matematikten beri yazılımımın teması ile birlikte gidiyor. Kod, toplamda 60 karakterden kısa olduğu sürece herhangi bir dilde ve herhangi bir matematik disiplindeki denklemlerde olabilir. İnsanların bunun için beyinlerinden ayrılacağından şüpheleniyorum .

Örneğin,

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

Tam olarak 60 karakter!

Bilgeliğin için çok teşekkürler!

Klasik C string kopya yordamı, bu günlerde daha az ve daha az insan tarafından bilinir:

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

bir satır değil, ama Dünyanın Son C Böceği'nü sunuyorum:

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

Conway'in APL'deki Hayat Oyununu çok gezdiğini gördüm:

Ek bir bonus, bunun unicode'u doğru kullandığınızdan emin olmanızdır.

Ünlü bir Perl one-liner'in değiştirilmiş bir versiyonu:

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

Bu normal ifade, uzunluğu asal olan dizelerle eşleşir.

Orijinal versiyon:

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

hangi 1s asal sayıdan oluşan dizeleri eşleşir.

Hızlı sıralama:

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

Liste boşsa, sıralanan sonuç boş listedir.

Liste, x öğesiyle başlıyorsa ve listenin geri kalanı xs ise, sıralanan sonuç, tüm öğelerin sıralanan listesiyle birleştirilmiş x öğesiyle birleştirilmiş x'den küçük tüm öğelerden oluşan sıralanan listeden oluşan listedir. x'teki öğeler x'ten büyük.

(veya başka bir deyişle - hepsi x'den küçük ve x'ten büyük olan iki kümeye bölün, her ikisini de sıralayın ve kümeden küçük, öğeden ve öğeden büyük öğeden oluşan bir liste oluşturun).

C versiyonunun anlaşılabilirliğini oldukça kolay atar.

1. Ackerman işlevi . Ackermann-Péter versiyonunun uygulanması 60 karaktere sığmalıdır :)

2. Bu güzel onaltılık sabit: 0x5f3759df. Gördüğüm en WTFing kodunun kalbidir: hızlı ters karekök .

3. Ünlü XOR takası .

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

Çatal çatalını ilk bulduğumda, bunun gerçekten tatlı olduğunu düşündüm.

:(){ :|:& };:

print "hello world\n";

ve türevleri popüler gibi görünüyor. :-)

Denklemlerden bahsettiğiniz için, bu listenizde yer almaktadır:

e^{i\pi}+1=0

( Wolfram Alpha render : )

Çift sayılar nasıl belirlenir:

x % 2 == 0

import this Python'da.

Yorumlar satır sonları içeremediğinden EDIT: Kullanışlı bir Python yorumlayıcısı olmayanlar için bu, çıktıdır.

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 satır değil ama bunun oldukça ünlü olduğunu söyleyebilirim:

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

Aslında bazı diller onu bir satırda tanımlayabilir. Lua akla geliyor ama dahası var.

x, y = y, x

Favori lambda matematiği örneği Y birleştiricisidir:

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

K & R'deki bir alıştırmadan , burada verilen sayıda kaç bitin ayarlandığını döndüren bir işlev. 58 karakterde:

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

Ayarlanan bit sayısı ile orantılı olarak zaman alır. Burada "ah ha" kısmı bu

n = n & (n - 1)

En sağ ayarlanan biti kaldırır n.

Özyinelemeli Pascal'ın Tek Sıradaki Üçgeni (Haskell)

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

Elli iki karakter, zevkinize boşluk ekleyin. Yorumunda "Ephemient" izniyle burada .

Bunun J ve K'deki kriptik ama kısa çözümlerden daha iyi bir örnek olduğunu düşündüm (henüz Haskell kullanıcısı değilim).

Unix Ruleti (TEHLİKE!)

Bigown'un şaka konularındaki cevabının izniyle (ve yorumu):

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

(Bu 62 karakter uzunluğunda olduğundan, yorumu kaldırabilirsiniz (bu şekilde çalışır mı?) Veya bazı önemli olmayan alanlar.)

Sonsuz Fibonacci Dizisi (Haskell)

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

DO 10 I=1.3

Bu tarihteki en pahalı böceklerden biri. Bu Fortran deyimi, 1.3 değişkenlik değerini adlandırılmış değişkene atar DO10I.

Doğru kod - döngünün başlığı ifadesi 10 etiketli ifadeye kadar tekrarlayan ifadeler ve döngü değişkeni I1, 2, 3 değerlerini kabul eder:

DO 10 I=1,3

Duff'un Cihazı :

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, dünyanın gördüğü en tuhaf C yapılarından birine bellek haritası çizilen bir port yazdığını gösterdi.

Akılda Merhaba Dünya ile ilgisi var. Birden fazla dili saklamayı planlıyorsanız, farklı varyasyonlarla gidebilirsiniz.

Daha önemsiz şeyler için, Fibbonacci var .

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

Yukarıdaki Scala kodu satırı, kendi yaşlarına göre iki listeye ayrılır people(bir liste Person).

Java’da aynı şeyi yapmak için aşağıdaki kodun çoğunu alır:

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

Üçüncü bir değişken kullanmadan iki değişkenin değerlerini değiştirmek. Programlamamda bana söylenen ve düşündüğüm ilk şeylerden biri bu "Hmm ... bu harika"

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

Kara Büyü'den John Carmack

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 Byte (Python) ile temsil edilebilecek en büyük sayı

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. Koşullu operatör :

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

2. Yer değiştir

3. her döngü için [Java]

Bu Quine dan Jargon File C:

char * f = "char * f =% C% s% C,% C (;) {Printf (f, 34 f, 34,10)} Ana", ana () {Printf (f, 34 f, 34,10);}

Ayrıca bir LISP sürümü de var, ancak görüntüleyebildiğiniz herhangi bir dilde, etrafta dolaşan birçok kişi bulabilirsiniz ...

matematik evrendeki en güzel sayıları birbirine bağlayan euler kimliği: 1, 0, e, i ve π: e ^ i (π) + 1 = 0

Ben iyi bir tane vardı ve onu kenarına yazdım.

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

Muhtemelen ünlü değil, favorilerimden biri. Çoğu için neden işe yaradığı hemen belli değil.

Bu, 60 karakterden biraz fazla ama gerçekten değişken isimlendirmeye bağlı (yani ben de dahil ediyorum!)

readLines (rdr: StreamReader) =
      seq {rdr.EndOfStream öğesinin
                verim vermemesini sağlar. rdr.ReadLine ()}

Bir dosyayı F # 'da satır satır sıralamak için küçük fonksiyon güzel.