Re: Fibonacci Generator

[neosamuri]

Spurred a thought

use strict;
print join( " ", ratios(fibLikeGen(15,1,1,1))), "\n";

sub fibLikeGen {
   my( $len, $n, @seq );
   $n = shift;
   @seq = @_;
   @seq = (1,1) unless @seq;
   $len = @seq;
   for( my $i = $len; $i < $n; $i++) {
      $seq[$i] += $seq[$i - $_] foreach 1..$len;
   }
   return @seq;
}

sub ratios {
   my( @out );
   for( my $i = 1; $i < @_; $i++) {
      $out[$i] = $_[$i]/$_[$i - 1];
   }
   return @out;
}