diff --git a/23/2b.pl b/23/2b.pl index ff1bc19..fb67845 100644 --- a/23/2b.pl +++ b/23/2b.pl @@ -3,19 +3,19 @@ $b = 79; $c = $b; goto L5 if $a; goto L9 if 1; -$b *= 100; +L5: $b *= 100; $b -= -100000; $c = $b; $c -= -17000; -$f = 1; +L9: $f = 1; $d = 2; -$e = 2; -$g = $d; +L11: $e = 2; +L12: $g = $d; $g *= $e; $g -= $b; goto L17 if $g; $f = 0; -$e -= -1; +L17: $e -= -1; $g = $e; $g -= $b; goto L12 if $g; @@ -25,9 +25,9 @@ $g -= $b; goto L11 if $g; goto L27 if $f; $h -= -1; -$g = $b; +L27: $g = $b; $g -= $c; goto L31 if $g; -goto L33 if 1; -$b -= -17; +goto if 1; +L31: $b -= -17; goto L9 if 1;