Select Code to Download

sub fannkuch {
    my ( $a, $level, $split ) = ( @_, 0, 1 );
...
    } while $index--;
    return $maxflips;
}

[rpc142: /tmp]$ diff --side-by-side -W 80 fann-char-orig.out fann-char
+.out
Pfannkuchen(1) = 0 for:                 Pfannkuchen(1) = 0 for:
...
Pfannkuchen(10) = 38 for:               Pfannkuchen(10) = 38 for:
59186210473                             59186210473
58.118665 elapsed seconds.            | 54.24672 elapsed seconds.