33 lines
515 B
Perl
33 lines
515 B
Perl
L1: $b = 79;
|
|
L2: $c = $b;
|
|
L3: goto L5 if $a;
|
|
L4: goto L9 if 1;
|
|
L5: $b *= 100;
|
|
L6: $b -= -100000;
|
|
L7: $c = $b;
|
|
L8: $c -= -17000;
|
|
L9: $f = 1;
|
|
L10: $d = 2;
|
|
L11: $e = 2;
|
|
L12: $g = $d;
|
|
L13: $g *= $e;
|
|
L14: $g -= $b;
|
|
L15: goto L17 if $g;
|
|
L16: $f = 0;
|
|
L17: $e -= -1;
|
|
L18: $g = $e;
|
|
L19: $g -= $b;
|
|
L20: goto L12 if $g;
|
|
L21: $d -= -1;
|
|
L22: $g = $d;
|
|
L23: $g -= $b;
|
|
L24: goto L11 if $g;
|
|
L25: goto L27 if $f;
|
|
L26: $h -= -1;
|
|
L27: $g = $b;
|
|
L28: $g -= $c;
|
|
L29: goto L31 if $g;
|
|
L30: goto L33 if 1;
|
|
L31: $b -= -17;
|
|
L32: goto L9 if 1;
|