fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. # Idiom #315 Memoization
  4.  
  5. use Memoize;
  6.  
  7. # Compute Fibonacci numbers
  8.  
  9. sub f {
  10.     my $n = shift;
  11.     return $n if $n < 2;
  12.     f($n-1) + f($n-2);
  13. }
  14.  
  15. memoize('f');
  16.  
  17. print "\n\nFast implementation using CPAN Memoization\n";
  18. foreach my $n ( 1..10 ) {
  19.     print ' ' . f( $n );
  20. }
  21.  
Success #stdin #stdout 0.02s 6484KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 

Fast implementation using CPAN Memoization
 1 1 2 3 5 8 13 21 34 55
https://ideone.com/9cW9aM
Idiom #315 Memoization - using CPAN Memoize
language:
Perl (perl 5.28.1)
created:
1 year ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!