Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 28th, 2012  |  syntax: None  |  size: 0.25 KB  |  hits: 14  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. sub fib {
  2.   my ($x, $k) = @_;
  3.   if ($x < 2) { $k->(1); }
  4.   else {
  5.     fib($x-1,
  6.       sub {
  7.         my $f1 = shift;
  8.         fib($x-2,
  9.           sub { my $f2 = shift; $k->($f1 + $f2); }
  10.         )
  11.       }
  12.     )
  13.   }
  14. }
  15.  
  16. fib(10, sub { print "$_[0]\n"; exit });
create a new version of this paste RAW Paste Data