Crie um programa com um simples GOTO

Sua tarefa é criar o maior programa possível que use exatamente um GOTO, sem o qual todo o programa (ou pelo menos uma grande parte dele) deve ser completamente reestruturado. A pontuação é contada como o número de instruções em seu código que mudam de lugar ou são introduzidas recentemente (remover instruções não adiciona à sua pontuação) quando o código é reestruturado sem o GOTO (outras pessoas podem contestar sua reestruturação, apresentando uma descrição mais elegante). Como esse é o código do boliche, a pontuação mais alta vence.

Nota: Não reivindico qualquer responsabilidade por ataques do velociraptor ao tentar este desafio.

C fizzbuzz

Esta solução funciona com a idéia de interrupções e rotular variáveis ​​(somente gcc, desculpe). O programa configura um timer que periodicamente chama main, onde vamos para o que for que a última execução do nosso manipulador de interrupções (main) nos disse que deveríamos.

Eu nunca usei temporizadores ou variáveis ​​de rótulo antes, então acho que há muito o que fazer aqui.

#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

Não sou muito bom no boliche, mas suspeito que isso possa interessar ao OP. Esta é uma peneira de Eratóstenes usando uma variável goto. Se isso fosse "refatorado", duvido que algo seria reutilizável, além das primeiras linhas. Quando a peneira termina, todos os 1s restantes na @primesmatriz correspondem aos valores primos.

Para maior diversão, não são utilizados ands, ors, ternários, condicionais ou operadores de comparação de qualquer tipo.

@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

Meu uso de macros talvez não o torne "um GOTO".
E é bastante curto, então "completamente reestruturado" não é muito.
Mas aqui está a minha tentativa de qualquer maneira.

Lê um número da entrada padrão, imprime-o 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;
}