Next You can't get there from here 31

Ouch

     my $ouchcode = "sub {       
                       use Acme::HaltingProblem;
                       my $arg = shift;
                       if (halts($arg, $arg)) { 1 while 1 }
                       else                   { return }
                    }";
     my $ouch = eval $ouchcode;
     $ouch->($ouchcode);

Next Copyright © 2005 M. J. Dominus