Select Code to Download

sub ackermann_c {
    use constant INF =>  exp(~0 >> 1);
...
    $r = 2**$r while --$p;
    return $r - 3;
}