Apa saja program dan persamaan satu-liner atau dua-liner yang terkenal? [Tutup]

Saya sedang bereksperimen dengan platform baru dan saya mencoba untuk menulis sebuah program yang berkaitan dengan string yang tidak lebih dari 60 karakter dan saya ingin mengisi penyimpanan data dengan beberapa potongan kode yang terkenal atau terkenal. persamaan, karena pemrograman dan matematika sejalan dengan tema perangkat lunak saya. Kode dapat dalam bahasa apa pun dan persamaan dari disiplin matematika apa pun, asalkan panjangnya kurang dari total 60 karakter. Saya curiga ada orang yang akan melakukan brainfuck untuk yang ini.

Sebagai contoh,

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

60 karakter tepatnya!

Terima kasih banyak atas kebijaksanaan Anda!

Rutin menyalin string C klasik diketahui oleh semakin sedikit orang tesis hari:

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

tidak satu baris, tapi saya menyajikan Bug C Terakhir di Dunia:

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

Saya melihat Conway's Game of Life di APL banyak beredar:

Bonus tambahan adalah ini akan memastikan Anda menangani unicode dengan benar.

Versi modifikasi dari Perl one-liner terkenal:

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

Ekspresi reguler ini cocok dengan string yang panjangnya prima.

Versi aslinya adalah:

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

yang cocok dengan string yang terdiri dari bilangan prima 1s.

Quicksort:

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

Jika daftar kosong, hasil yang diurutkan adalah daftar kosong.

Jika daftar dimulai dengan elemen x, dan sisanya dari daftar adalah xs, maka hasil yang diurutkan adalah daftar yang terdiri dari daftar yang diurutkan yang terdiri dari semua elemen dalam x kurang dari x yang digabungkan dengan elemen x yang dipadukan dengan daftar yang diurutkan dari semua elemen dalam xs lebih besar dari x.

(atau dengan kata lain - bagi dalam dua tumpukan, semua kurang dari x dan semua lebih besar dari x, urutkan keduanya dan buat daftar dengan tumpukan yang kurang dari itu, elemen x, dan yang lebih besar dari tumpukan).

Mengalahkan dimengerti versi C cukup mudah.

1. Fungsi Ackerman . Implementasi versi Ackermann-Péter harus sesuai dengan 60 karakter :)

2. Konstanta heksadesimal yang indah ini: 0x5f3759df. Ini adalah jantung dari kode WTFing paling banyak yang pernah saya lihat: root kuadrat terbalik cepat .

3. Pertukaran XOR yang terkenal .

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

Ketika saya pertama kali menemukan garpu bash, saya pikir itu benar-benar manis.

:(){ :|:& };:

print "hello world\n";

dan turunannya tampaknya populer. :-)

Karena Anda menyebutkan persamaan, ini termasuk dalam daftar Anda:

e^{i\pi}+1=0

( Wolfram Alpha render : )

Cara mendeteksi angka genap:

x % 2 == 0

import this dalam Python.

Sunting sebagai komentar tidak dapat berisi jeda baris: Bagi mereka yang tidak memiliki juru bahasa Python, ini adalah hasilnya

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!

Tidak cukup 2 baris tapi saya akan mengatakan ini cukup terkenal:

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

Sebenarnya beberapa bahasa dapat menggambarkannya dalam satu baris. Lua muncul dalam pikiran tetapi ada lebih banyak.

x, y = y, x

Contoh kalkulus lambda favorit saya adalah kombinasi Y:

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

Dari latihan di K&R, berikut adalah fungsi yang akan mengembalikan berapa banyak bit yang diatur dalam angka yang diberikan. Pada 58 karakter:

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

Dibutuhkan waktu sebanding dengan jumlah bit yang ditetapkan. Bagian "ah ha" di sini adalah itu

n = n & (n - 1)

Menghapus bit set paling kanan dari n.

Segitiga Pascal Rekursif dalam Satu Baris (Haskell)

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

Lima puluh dua karakter, tambahkan spasi sesuai selera. Atas perkenan "Ephemient" dalam komentar di sini .

Saya pikir ini adalah contoh yang lebih baik daripada solusi samar dan singkat di J dan K (meskipun saya belum pengguna Haskell).

Roulette Unix (Bahaya!)

Atas perkenan Bigown di utas lelucon (dan komentar):

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

(Panjangnya 62 karakter, sehingga Anda dapat menghapus komentar (apakah akan berfungsi seperti itu?) Atau beberapa ruang yang tidak penting.)

Urutan Fibonacci Infinite (Haskell)

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

DO 10 I=1.3

Ini adalah salah satu bug paling mahal dalam sejarah. Pernyataan Fortran ini memberikan nilai float 1,3 ke variabel bernama DO10I.

Kode yang benar - header pernyataan berulang berulang sampai pernyataan berlabel 10 dan variabel loop Imenerima nilai 1, 2, 3:

DO 10 I=1,3

Perangkat Duff :

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 membuka porta yang dipetakan di memori menjadi salah satu konstruksi C paling aneh yang pernah ada di dunia.

Apa pun yang berkaitan dengan Hello World terlintas dalam pikiran. Anda bisa menggunakan variasi yang berbeda jika Anda berencana menyimpan banyak bahasa.

Untuk sesuatu yang lebih sepele, ada Fibbonacci .

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

Baris di atas partisi kode Scala people(daftar Persons) menjadi dua daftar berdasarkan usia masing-masing.

Dibutuhkan banyak kode berikut untuk melakukan hal yang sama di Jawa:

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

Menukar nilai dua variabel tanpa menggunakan variabel ketiga. Ini adalah salah satu hal pertama dalam pemrograman yang saya diberitahu dan berpikir "Hmm ... itu keren"

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

Ilmu hitam dari 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;
}

Jumlah terbesar yang dapat diwakili oleh 8 Byte (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 bersyarat :

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

2. Ganti kasing

3. untuk-setiap loop [Jawa]

Quine ini dari File Jargon di C:

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

Ada juga versi LISP di sana juga, tetapi Anda dapat menemukan banyak lainnya melayang-layang, dalam hampir semua bahasa yang dapat Anda gambar ...

identitas euler yang menghubungkan angka-angka paling indah di alam semesta matematika: 1, 0, e, i dan π: e ^ i (π) + 1 = 0

Saya punya yang bagus dan saya menuliskannya di margin.

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

Mungkin tidak terkenal, tetapi salah satu favorit saya. Bagi kebanyakan orang, tidak segera jelas mengapa itu berhasil.

Ini sedikit lebih dari 60 karakter tetapi sangat tergantung pada penamaan variabel (jadi saya termasuk itu!)

biarkan readLines (rdr: StreamReader) =
      seq {sementara tidak rdr.EndOfStream lakukan
                hasil rdr.ReadLine ()}

Fungsi kecil yang bagus untuk membaca file menjadi baris demi baris dalam F #.