Створіть програму за допомогою одного простого GOTO

Ваше завдання - створити найбільшу програму, яка може використовувати саме один GOTO, без якого вся програма (або принаймні величезний фрагмент) повинна бути повністю реструктурована. Оцінка зараховується як кількість висловлювань у вашому коді, які змінюють місця або знову вводяться (видалення висловлювань не додає до вашої оцінки), коли код реструктурується без GOTO (іншим дозволено оскаржити вашу реструктуризацію, подавши більше елегантний). Оскільки це кодове боулінг, виграє найвищий бал.

Примітка. Я не несу відповідальності за атаки велоцирапторів, намагаючись це завдання.

C fizzbuzz

Це рішення базується на ідеї переривань та мінливих змінних (лише gcc, вибачте). Програма встановлює таймер, який періодично називає основним, куди ми йдемо, в якому місці останнє виконання нашого обробника перерв (основного) сказало нам, що ми повинні.

Я ніколи раніше не використовував таймери або мінливі мітки, тому я думаю, що тут є багато.

#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масиві відповідають основним значенням.

Для додаткової розваги не використовуються оні, орси, тернарі, умовні умови або оператори порівняння будь-якого типу.

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

С

Моє використання макросів, можливо, не робить його "одним ГОТО".
І це зовсім коротко, тому "повністю реструктуризованих" не багато.
Але ось моя спроба все одно.

Читає номер зі стандартного вводу, друкує його 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;
}