สร้างโปรแกรมด้วย GOTO ง่ายๆ

งานของคุณคือการสร้างโปรแกรมที่ใหญ่ที่สุดที่คุณสามารถใช้ GOTO หนึ่งตัวโดยไม่ต้องใช้โปรแกรมทั้งหมด (หรืออย่างน้อยก็ชิ้นใหญ่) คะแนนจะถูกนับเป็นจำนวนของข้อความในรหัสของคุณที่เปลี่ยนสถานที่หรือมีการนำมาใช้ใหม่ (การลบข้อความไม่ได้เพิ่มคะแนนของคุณ) เมื่อรหัสนั้นได้รับการปรับโครงสร้างใหม่โดยไม่ต้องมี GOTO (คนอื่น ๆ สง่างามหนึ่ง) เช่นนี้เป็นโบว์ลิ่งรหัสคะแนนสูงสุดชนะ

หมายเหตุ: ฉันไม่ได้เรียกร้องความรับผิดใด ๆ สำหรับการโจมตีศาสนโดยพยายามท้าทายนี้

C fizzbuzz

วิธีการแก้ปัญหานี้ทำงานรอบความคิดของการขัดจังหวะและตัวแปรฉลาก (gcc เท่านั้นขออภัย) โปรแกรมตั้งค่าตัวจับเวลาซึ่งเรียก main เป็นระยะ ๆ โดยที่เราข้ามไปใดก็ตามที่การดำเนินการครั้งสุดท้ายของตัวจัดการขัดจังหวะของเรา (หลัก) บอกเราว่าเราควร

ฉันไม่เคยใช้ตัวจับเวลาหรือตัวแปรป้ายกำกับมาก่อนดังนั้นฉันคิดว่ามีอะไรให้ใส่มากมาย

#include <sys/time.h>
#include <signal.h>
#include <stdio.h>

int main(int argc)
{
    static int run = 1;
    static int* gotoloc = &&init;
    static int num = 0;
    static int limit = 50;

    goto *gotoloc;
init:
    signal(SIGVTALRM, (void (*)(int)) main);
    gotoloc = &&loop;

    struct itimerval it_val;

    it_val.it_value.tv_sec = 0;
    it_val.it_value.tv_usec = 100000;
    it_val.it_interval.tv_sec = 0;
    it_val.it_interval.tv_usec = 100000;
    setitimer(ITIMER_VIRTUAL, &it_val, NULL);

    while(run);

loop:
    num = num + 1;
    run = num < limit;
    gotoloc = &&notfizz + (&&fizz - &&notfizz) * !(num % 3);
    return 1;

fizz:
    printf("fizz");
    gotoloc = &&notbuzz + (&&buzz - &&notbuzz) * !(num % 5);
    return 1;

notfizz:
    gotoloc = &&notfizzbuzz + (&&buzz - &&notfizzbuzz) * !(num % 5);
    return 1;

buzz:
    printf("buzz\n");
    gotoloc = &&loop;
    return 1;

notbuzz:
    printf("\n");
    gotoloc = &&loop;
    return 1;

notfizzbuzz:
    printf("%d\n", num);
    gotoloc = &&loop;
    return 1;
}

Perl

ฉันเล่นโบว์ลิ่งไม่ค่อยเก่ง แต่ฉันคิดว่านี่น่าจะเป็นที่สนใจของ OP นี่คือตะแกรงของ Eratosthenes โดยใช้ตัวแปร goto หากสิ่งนี้เป็น 'refactored' ฉันสงสัยว่ามันจะสามารถใช้ซ้ำได้นอกเหนือจากสองสามบรรทัดแรก เมื่อตะแกรงสิ้นสุดลง1s ทั้งหมดที่เหลืออยู่ใน@primesอาร์เรย์จะสอดคล้องกับค่าเฉพาะ

เพื่อเพิ่มความสนุกไม่ใช้ ands, ors, ternaries, conditionals หรือตัวดำเนินการเปรียบเทียบใด ๆ

@primes[2..1e4]=(1)x9999;
$a=2;
Y:
  $b=$a*~-$a;
X:
  $primes[$b+=$a+=$c=$a/100%2+$b/1e4%2]=0;
  goto"$c"^h;
Z:

C

การใช้งานมาโครของฉันอาจไม่ทำให้เป็น "หนึ่ง GOTO"
และมันค่อนข้างสั้นดังนั้น "การปรับโครงสร้างอย่างสมบูรณ์" จึงไม่มากนัก
แต่นี่คือความพยายามของฉัน

อ่านตัวเลขจากอินพุตมาตรฐานพิมพ์มัน modulu 3

int main() {
    char s[100], *p, r=0;
    void *pl[] = { &&a, &&b, &&c, &&d, &&e, &&f, &&g, &&h, &&i, &&j, &&a, &&b, &&x, &&y, &&z }, *p1;
    p = gets(s);
    #define N(n) (pl+n)[!*p*60+*p-48];p++;goto *p1
    a: p1=N(0);
    b: p1=N(1);
    c: p1=N(2);
    d: p1=N(0);
    e: p1=N(1);
    f: p1=N(2);
    g: p1=N(0);
    h: p1=N(1);
    i: p1=N(2);
    j: p1=N(0);
    z: r++;
    y: r++;
    x: printf("%d\n", r);

    return 0;
}