Erstellen Sie ein Programm mit einem einfachen GOTO

Ihre Aufgabe ist es, das größte Programm zu erstellen, das Sie können und das genau ein GOTO verwendet, ohne das das gesamte Programm (oder zumindest ein großer Teil davon) vollständig umstrukturiert werden muss. Die Punktzahl wird als die Anzahl der Anweisungen in Ihrem Code gezählt, die die Position ändern oder neu eingeführt werden (das Entfernen von Anweisungen trägt nicht zu Ihrer Punktzahl bei), wenn der Code ohne das GOTO umstrukturiert wird (andere dürfen Ihre Umstrukturierung anfechten, indem sie eine weitere Anweisung vorlegen elegantes). Da dies Code-Bowling ist, gewinnt die höchste Punktzahl.

Hinweis: Ich übernehme keine Haftung für Velociraptor-Angriffe, wenn ich diese Herausforderung versuche.

C Fizzbuzz

Diese Lösung basiert auf der Idee von Interrupts und Label-Variablen (nur gcc, sorry). Das Programm richtet einen Timer ein, der periodisch main aufruft, wo wir zu dem Punkt gelangen, den uns die letzte Ausführung unseres Interrupt-Handlers (main) befohlen hat.

Ich habe noch nie zuvor Timer oder Label-Variablen verwendet. Ich denke, hier gibt es viel zu tun.

#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

Ich kann nicht sehr gut bowlen, aber ich vermute, das könnte den OP interessieren. Dies ist ein Eratosthenes-Sieb mit einer Variablen goto. Wäre dies "refactored", würde ich bezweifeln, dass etwas davon wiederverwendbar wäre, abgesehen von vielleicht den ersten paar Zeilen. Wenn das Sieb endet, entsprechen alle verbleibenden 1s im @primesArray den Primwerten.

Für zusätzlichen Spaß werden keine ands, ors, ternaries, conditionals oder Vergleichsoperatoren jeglicher Art verwendet.

@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

Meine Verwendung von Makros macht es vielleicht nicht zu einem "GOTO".
Und es ist ziemlich kurz, so dass "komplett umstrukturiert" nicht viel ist.
Aber hier ist trotzdem mein Versuch.

Liest eine Zahl von der Standardeingabe und druckt sie in Modul 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;
}