Xây dựng chương trình với một GOTO đơn giản

Nhiệm vụ của bạn là xây dựng chương trình lớn nhất mà bạn có thể sử dụng chính xác một GOTO, mà không có toàn bộ chương trình (hoặc ít nhất là một đoạn lớn của chương trình) phải được cấu trúc lại hoàn toàn. Điểm số được tính là số lượng câu lệnh trong mã của bạn thay đổi địa điểm hoặc mới được giới thiệu (xóa câu lệnh không thêm vào điểm số của bạn) khi mã được cơ cấu lại mà không có GOTO (những người khác được phép thách thức cơ cấu lại của bạn bằng cách trình bày thêm thanh lịch một). Vì đây là mã bowling, điểm số cao nhất sẽ thắng.

Lưu ý: Tôi không yêu cầu bất kỳ trách nhiệm pháp lý nào đối với các cuộc tấn công bằng Velociraptor bằng cách thử thách này.

C fizzbuzz

Giải pháp này chạy xung quanh ý tưởng về các ngắt và các biến nhãn (chỉ gcc, xin lỗi). Chương trình thiết lập một bộ đếm thời gian gọi định kỳ chính, trong đó chúng tôi sẽ thực hiện lần thực hiện cuối cùng của trình xử lý ngắt (chính) cho chúng tôi biết chúng ta nên làm gì.

Tôi chưa bao giờ sử dụng bộ định thời hoặc biến nhãn trước đây, vì vậy tôi nghĩ rằng có nhiều thứ để tô ở đây.

#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

Tôi không giỏi chơi bowling, nhưng tôi nghi ngờ điều này có thể khiến OP quan tâm. Đây là một sàng của Eratosthenes bằng cách sử dụng một goto biến. Đây có phải là 'tái cấu trúc' không, tôi nghi ngờ bất kỳ thứ nào trong số đó sẽ có thể tái sử dụng, ngoại trừ vài dòng đầu tiên. Khi sàng kết thúc, tất cả các 1s còn lại trong @primesmảng tương ứng với các giá trị nguyên tố.

Để thêm phần thú vị, không có ands, ors, ternary, điều kiện hoặc toán tử so sánh nào được sử dụng.

@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

Việc sử dụng macro của tôi có lẽ không làm cho nó trở thành "một GOTO".
Và nó khá ngắn, nên "tái cấu trúc hoàn toàn" không nhiều.
Nhưng đây là nỗ lực của tôi.

Đọc một số từ đầu vào tiêu chuẩn, in nó 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;
}