Создайте программу с одним простым GOTO

Ваша задача - создать самую большую программу, в которой вы можете использовать только один GOTO, без чего вся программа (или, по крайней мере, огромная ее часть) должна быть полностью реструктурирована. Оценка подсчитывается как количество утверждений в вашем коде, которые меняются местами или вводятся заново (удаление утверждений не добавляет к вашему счету), когда код реструктурируется без GOTO (другим разрешено оспаривать вашу реструктуризацию, представляя более элегантный). Поскольку это кодовый боулинг, выигрывает наибольшее количество очков.

Примечание: я не несу никакой ответственности за атаки велоцираптора, пытаясь выполнить этот вызов.

C fizzbuzz

Это решение основано на идее прерываний и меток переменных (только gcc, извините). Программа устанавливает таймер, который периодически вызывает main, и мы переходим к тому месту, где было указано последнее выполнение нашего обработчика прерываний (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

Я не очень хорош в боулинге, но подозреваю, что это может заинтересовать ОП. Это сито Эратосфена с использованием переменной goto. Если бы это было «рефакторингом», я сомневаюсь, что что-то из этого можно будет использовать повторно, кроме, возможно, первых нескольких строк. Когда сито заканчивается, все остальные 1s в @primesмассиве соответствуют простым значениям.

Для дополнительного удовольствия не используются операторы and, or, ternaries, условные операторы или операторы сравнения любого вида.

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

С

Мое использование макросов, возможно, не делает его "одним GOTO".
И он довольно короткий, поэтому «полностью перестроен» не так уж и много.
Но вот моя попытка в любом случае.

Считывает число из стандартного ввода, печатает его по модулю 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;
}