Help for this page

Select Code to Download

Select or download this

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

Select or download this

Your sub                          My sub

...
Pfannkuchen(10) = 38 for:          Pfannkuchen(10) = 38 for:
59186210473                        59186210473
24.218115 elapsed seconds.         23.077981 elapsed seconds.