Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[rosalind] FIBD
  • Loading branch information
grondilu committed Mar 11, 2013
1 parent 50cff13 commit c78caa8
Showing 1 changed file with 12 additions and 0 deletions.
12 changes: 12 additions & 0 deletions rosalind/fibd-grondilu.pl
@@ -0,0 +1,12 @@
my ($n, $m) = get.words;

my @population = 1, 0 xx ($m-1);
for 1 .. $n-1 -> \n {
@population.unshift: [+] @population[1..*-1]; # reproduction
@population.pop; # death
}

say [+] @population;


# vim: ft=perl6

0 comments on commit c78caa8

Please sign in to comment.