Bangun program dengan satu GOTO sederhana

Tugas Anda adalah membangun program terbesar yang dapat Anda gunakan yang menggunakan tepat satu GOTO, yang tanpanya seluruh program (atau setidaknya sebagian besar darinya) harus sepenuhnya direstrukturisasi. Skor dihitung sebagai jumlah pernyataan dalam kode Anda yang mengubah tempat atau baru diperkenalkan (menghapus pernyataan tidak menambah skor Anda) ketika kode direstrukturisasi tanpa GOTO (orang lain diizinkan untuk menantang restrukturisasi Anda dengan menyajikan lebih banyak yang elegan). Karena ini adalah bowling kode, skor tertinggi menang.

Catatan: Saya tidak mengklaim tanggung jawab atas serangan velociraptor dengan mencoba tantangan ini.

C fizzbuzz

Solusi ini berjalan di sekitar gagasan interupsi dan label variabel (hanya gcc, maaf). Program ini mengatur timer yang secara berkala memanggil utama, di mana kita pergi ke mana saja yang melakukan eksekusi terakhir dari interrupt handler (utama) kita kepada kita.

Saya belum pernah menggunakan timer atau label variabel sebelumnya, jadi saya pikir ada banyak hal yang perlu diperhatikan di sini.

#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

Saya tidak pandai bowling, tapi saya curiga ini mungkin menarik bagi OP. Ini adalah Saringan Eratosthenes menggunakan goto variabel. Kalau ini 'refactored', saya ragu semua itu akan dapat digunakan kembali, selain mungkin beberapa baris pertama. Ketika saringan berakhir, semua yang tersisa 1dalam @primesarray sesuai dengan nilai-nilai prima.

Untuk tambahan kesenangan, tidak ada ands, ors, ternary, conditional atau operator pembanding apa pun yang digunakan.

@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

Penggunaan makro saya mungkin tidak menjadikannya "satu GOTO".
Dan itu cukup singkat, jadi "sepenuhnya direstrukturisasi" tidak banyak.
Tapi ini usahaku.

Membaca angka dari input standar, mencetaknya 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;
}