challenges

my solutions to various "programming challenge" problems
git clone https://wehaveforgeathome.hates.computer/challenges.git
Log | Files | Refs | LICENSE

025.pl (267B)

      1 #!/usr/bin/perl
      2 use strict;
      3 use warnings;
      4 use Memoize;
      5 use bigint;
      6 
      7 my $digits = 1000;
      8 
      9 memoize("fib");
     10 
     11 my $n = 3;
     12 while (length(fib($n)) < $digits) {
     13   $n++;
     14 }
     15 
     16 print "$n\n";
     17 
     18 sub fib {
     19   my $n = shift;
     20   return 1 if ($n < 3);
     21   return fib($n - 1) + fib($n - 2);
     22 }