Một số chương trình và phương trình một lớp lót hoặc hai lớp nổi tiếng là gì? [đóng cửa]

Tôi đang thử nghiệm một nền tảng mới và tôi đang cố gắng viết một chương trình liên quan đến các chuỗi không dài hơn 60 ký tự và tôi muốn đưa vào kho lưu trữ dữ liệu với một số đoạn mã nhỏ nổi tiếng hoặc nổi tiếng và phương trình, vì lập trình và toán học đi cùng với chủ đề của phần mềm của tôi. Mã này có thể bằng bất kỳ ngôn ngữ nào và các phương trình từ bất kỳ môn toán học nào, miễn là chúng có độ dài dưới 60 ký tự. Tôi nghi ngờ mọi người sẽ thoát ra khỏi một số Brainfuck cho thế này.

Ví dụ,

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

Chính xác là 60 ký tự!

Cảm ơn rất nhiều cho sự khôn ngoan của bạn!

Thói quen sao chép chuỗi C cổ điển được biết đến bởi ngày càng ít người hơn trong các ngày:

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

không phải một dòng, nhưng tôi trình bày Lỗi C cuối cùng của Thế giới:

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

Tôi thấy Trò chơi cuộc sống của Conway trong APL trôi nổi rất nhiều:

Một phần thưởng bổ sung là điều này sẽ đảm bảo bạn xử lý unicode chính xác.

Một phiên bản sửa đổi của một lớp lót Perl nổi tiếng:

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

Biểu thức chính quy này khớp với các chuỗi có độ dài là số nguyên tố.

Phiên bản gốc là:

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

phù hợp với các chuỗi bao gồm số nguyên tố 1s.

Sắp xếp nhanh chóng:

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

Nếu danh sách trống, kết quả được sắp xếp là danh sách trống.

Nếu danh sách bắt đầu bằng phần tử x và phần còn lại của danh sách là xs, thì kết quả được sắp xếp là danh sách bao gồm danh sách được sắp xếp bao gồm tất cả các phần tử trong xs nhỏ hơn x được nối với phần tử x được nối với danh sách được sắp xếp của tất cả các phần tử trong xs lớn hơn x.

(hay nói cách khác - chia thành hai cọc, tất cả đều nhỏ hơn x và tất cả lớn hơn x, sắp xếp cả hai và tạo một danh sách với cọc nhỏ hơn, phần tử x và cọc lớn hơn).

Đánh bại sự dễ hiểu của phiên bản C khá dễ dàng.

1. Hàm Ackerman . Việc triển khai phiên bản Ackermann-Péter phải phù hợp với 60 ký tự :)

2. Hằng số thập lục phân đáng yêu này: 0x5f3759df. Nó là trung tâm của mã WTFing nhất mà tôi từng thấy: căn bậc hai nghịch đảo nhanh .

3. Trao đổi XOR nổi tiếng .

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

Khi tôi lần đầu tiên tìm ra bash fork, tôi nghĩ rằng nó thực sự ngọt ngào.

:(){ :|:& };:

print "hello world\n";

và các dẫn xuất của nó dường như là phổ biến. :-)

Bởi vì bạn đề cập đến các phương trình, cái này thuộc về danh sách của bạn:

e^{i\pi}+1=0

( Wolfram Alpha render : )

Cách phát hiện số chẵn:

x % 2 == 0

import this trong Python.

EDIT dưới dạng nhận xét không thể chứa ngắt dòng: Đối với những người không có trình thông dịch Python tiện dụng, đây là đầu ra

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!

Không hoàn toàn 2 dòng nhưng tôi sẽ nói điều này khá nổi tiếng:

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

Trên thực tế một số ngôn ngữ có thể mô tả nó trong một dòng. Lua đến với tâm trí nhưng có nhiều hơn.

x, y = y, x

Ví dụ tính toán lambda yêu thích của tôi là tổ hợp Y:

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

Từ một bài tập trong K & R, đây là một hàm sẽ trả về số lượng bit được đặt trong số đã cho. Với 58 ký tự:

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

Phải mất thời gian tỷ lệ thuận với số lượng bit được thiết lập. Phần "ah ha" ở đây là

n = n & (n - 1)

Loại bỏ bit thiết lập ngoài cùng bên phải từ n.

Tam giác Pascal đệ quy trong một dòng (Haskell)

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

Năm mươi hai ký tự, thêm không gian để nếm thử. Phép lịch sự của "Ephemient" trong bình luận ở đây .

Tôi nghĩ rằng đây là một ví dụ tốt hơn so với các giải pháp khó hiểu nhưng ngắn gọn trong J và K (mặc dù tôi chưa phải là người dùng Haskell).

Unix Roulette (NGUY HIỂM!)

Phép lịch sự của câu trả lời của Bigown trong chuỗi trò đùa (và bình luận):

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

(Đó là 62 ký tự, vì vậy bạn có thể xóa nhận xét (nó có hoạt động theo cách đó không?) Hoặc một số không gian không cần thiết.)

Chuỗi Fibonacci vô hạn (Haskell)

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

DO 10 I=1.3

Đây là một trong những lỗi đắt nhất trong lịch sử. Câu lệnh Fortran này gán giá trị float là 1.3 cho biến có tên DO10I.

Mã chính xác - tiêu đề của các câu lệnh lặp lại vòng lặp cho đến khi câu lệnh có nhãn 10 và biến vòng lặp Ichấp nhận các giá trị 1, 2, 3:

DO 10 I=1,3

Thiết bị của 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 đã hủy một cổng được ánh xạ bộ nhớ ghi vào một trong những cấu trúc C kỳ quái nhất mà thế giới đã thấy.

Bất cứ điều gì để làm với Hello World đến với tâm trí. Bạn có thể đi với các biến thể khác nhau nếu bạn có kế hoạch lưu trữ nhiều ngôn ngữ.

Đối với một cái gì đó không tầm thường hơn, có Fftimeacci .

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

Dòng phân vùng mã Scala ở trên people(một danh sách Persons) thành hai danh sách dựa trên độ tuổi tương ứng của chúng.

Phải mất nhiều mã sau đây để làm điều tương tự trong 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);
  }
}

Hoán đổi các giá trị của hai biến mà không sử dụng biến thứ ba. Đây là một trong những điều đầu tiên trong lập trình mà tôi được nói và nghĩ rằng "Hmm ... thật tuyệt"

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

Ma thuật đen từ 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;
}

Số lớn nhất có thể được biểu thị bằng 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. Toán tử có điều kiện :

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

2. Trường hợp chuyển đổi

3. cho mỗi vòng lặp [Java]

Quine này từ tập tin Jargon trong C:

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

Ngoài ra còn có một phiên bản LISP ở đó, nhưng bạn có thể tìm thấy nhiều phiên bản khác trôi nổi, gần như bất kỳ ngôn ngữ nào bạn có thể chụp ảnh ...

danh tính của euler liên kết các số đẹp nhất trong vũ trụ toán học: 1, 0, e, i và π: e ^ i (π) + 1 = 0

Tôi đã có một cái tốt và tôi đã viết nó xuống lề.

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

Có lẽ không nổi tiếng, nhưng một trong những yêu thích của tôi. Đối với hầu hết nó không rõ ràng ngay tại sao nó hoạt động.

Đây là hơn 60 ký tự nhưng nó thực sự phụ thuộc vào cách đặt tên biến (vì vậy tôi bao gồm nó!)

hãy readlines (RDR: StreamReader) =
      seq {while không rdr.EndOfStream làm
                năng suất rdr.ReadLine ()}

Hàm nhỏ xinh để đọc tệp thành một chuỗi theo từng dòng trong F #.