โปรแกรมและสมการหนึ่งซับหรือสองซับที่มีชื่อเสียงคืออะไร? [ปิด]

ฉันกำลังทดลองกับแพลตฟอร์มใหม่และฉันพยายามเขียนโปรแกรมที่เกี่ยวข้องกับสตริงที่มีความยาวไม่เกิน 60 ตัวอักษรและฉันต้องการเติมที่เก็บข้อมูลด้วยโค้ดขนาดเล็กที่มีชื่อเสียงหรือที่รู้จักกันดีและ สมการเนื่องจากการเขียนโปรแกรมและคณิตศาสตร์สอดคล้องกับธีมของซอฟต์แวร์ของฉัน รหัสสามารถเป็นภาษาใด ๆ และสมการจากวินัยคณิตศาสตร์ใด ๆ ตราบใดที่พวกเขามีความยาวน้อยกว่า 60 ตัวอักษร ฉันสงสัยว่าผู้คนจะแยกสมองออกมาสำหรับอันนี้

ตัวอย่างเช่น,

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

แน่นอนว่า 60 ตัวอักษร!

ขอบคุณมากสำหรับภูมิปัญญาของคุณ!

รูทีนการคัดลอกสตริง C แบบคลาสสิกเป็นที่รู้จักกันโดยผู้คนจำนวนน้อยลง

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

ไม่ใช่หนึ่งบรรทัด แต่ฉันนำเสนอข้อผิดพลาดล่าสุดของโลก:

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

ฉันเห็นเกมแห่งชีวิตของ Conway ใน APL ที่ลอยอยู่รอบ ๆ :

โบนัสพิเศษคือสิ่งนี้จะช่วยให้คุณจัดการยูนิโค้ดได้อย่างถูกต้อง

รุ่นดัดแปลงหนึ่งที่มีชื่อเสียงของ Perl หนึ่งซับ:

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

การแสดงออกปกตินี้ตรงกับสตริงที่มีความยาวเป็นสำคัญ

รุ่นเดิมคือ:

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

ซึ่งจับคู่สตริงที่ประกอบด้วยจำนวนเฉพาะของ 1s

quicksort:

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

หากรายการว่างเปล่าผลการเรียงลำดับจะเป็นรายการว่างเปล่า

หากรายการเริ่มต้นด้วยองค์ประกอบ x และส่วนที่เหลือของรายการคือ xs ผลลัพธ์ที่เรียงจะประกอบด้วยรายการที่เรียงลำดับซึ่งประกอบด้วยองค์ประกอบทั้งหมดใน xs น้อยกว่า x เชื่อมต่อกับองค์ประกอบ x เชื่อมโยงกับรายการเรียงลำดับของทั้งหมด องค์ประกอบใน xs ใหญ่กว่า x

(หรือกล่าวอีกนัยหนึ่ง - แบ่งเป็นสองกองทั้งหมดน้อยกว่า x และใหญ่กว่า x จัดเรียงทั้งคู่และสร้างรายการที่มีกองน้อยกว่าองค์ประกอบ x และกองใหญ่กว่า)

เอาชนะความเข้าใจของรุ่น C ได้ค่อนข้างง่าย

1. ฟังก์ชั่น Ackerman การติดตั้งเวอร์ชั่น Ackermann-Péterควรมีขนาด 60 ตัวอักษร :)

2. ค่าคงที่เลขฐานสิบหกที่น่ารักนี้: 0x5f3759df มันเป็นหัวใจของรหัส WTFing ที่สุดที่ฉันเคยเห็นที่: รวดเร็วผกผันราก

3. ที่มีชื่อเสียงแลกเปลี่ยนแฮคเกอร์

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

เมื่อแรกที่ฉันคิดออกทุบตีทุบตีฉันคิดว่ามันหวานจริงๆ

:(){ :|:& };:

print "hello world\n";

และการสืบทอดดูเหมือนว่าจะเป็นที่นิยม :-)

เนื่องจากคุณพูดถึงสมการสิ่งนี้จึงเป็นของคุณ:

e^{i\pi}+1=0

( Wolfram Alpha การแสดงผล : )

วิธีตรวจจับตัวเลขได้:

x % 2 == 0

import this ใน Python

แก้ไขเนื่องจากความคิดเห็นไม่สามารถมีตัวแบ่งบรรทัด: สำหรับผู้ที่ไม่มี Python interpreter สะดวกนี่เป็นผลลัพธ์

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 combinator:

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เอาบิตขวาสุดจากชุด

Recursive Pascal's Triangle in One Line (Haskell)

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

ตัวอักษรห้าสิบสองเพิ่มช่องว่างเพื่อลิ้มรส มารยาทของ "ephemient" ในความคิดเห็นที่นี่

ฉันคิดว่านี่เป็นตัวอย่างที่ดีกว่า cryptic แต่เป็นคำตอบสั้น ๆ ในJและK (แม้ว่าฉันจะไม่ใช่ผู้ใช้ Haskell ก็ตาม)

Unix Roulette (อันตราย!)

ความอนุเคราะห์จากคำตอบของ Bigown ในเรื่องตลก (และความคิดเห็น):

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

(นั่นคือความยาว 62 ตัวอักษรดังนั้นคุณสามารถลบความคิดเห็น (มันจะทำงานได้อย่างไร?) หรือช่องว่างที่ไม่จำเป็น)

Infinite Fibonacci Sequence (Haskell)

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

DO 10 I=1.3

นี่เป็นหนึ่งในข้อบกพร่องที่แพงที่สุดในประวัติศาสตร์ คำสั่ง Fortran นี้กำหนดค่าทศนิยม 1.3 ให้กับตัวแปรที่มีชื่อDO10Iตัวแปรที่มีชื่อ

รหัสที่ถูกต้อง - ส่วนหัวของคำสั่งวนซ้ำจนกว่าคำสั่งที่ระบุว่า 10 และตัวแปรลูปIยอมรับค่า 1, 2, 3:

DO 10 I=1,3

อุปกรณ์ของ 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 ยกเลิกการแมปพอร์ตหน่วยความจำที่เขียนลงใน C ที่แปลกประหลาดที่สุดที่สร้างขึ้นในโลก

ทุกสิ่งที่เกี่ยวกับ Hello World เป็นสิ่งสำคัญ คุณสามารถใช้รูปแบบที่แตกต่างกันหากคุณวางแผนที่จะเก็บหลายภาษา

สำหรับบางสิ่งบางอย่างมากขึ้นไม่น่ารำคาญมีFibbonacci

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

บรรทัดด้านบนของพาร์ติชันรหัสสกาล่าpeople(รายการPerson s) เป็นสองรายการตามอายุของพวกเขา

ใช้รหัสมากในการทำสิ่งเดียวกันใน 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;

มนต์ดำจาก 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 ไบต์ (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. for-each loop [Java]

Quineนี้จากไฟล์ Jargonใน C:

char * f = "char * f = c%% s c%; หลัก () {printf (ฉ, 34, F, 34,10);} c%"; ​​หลัก () {printf (ฉ, 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 #