#!/usr/bin/env perl6 sub MAIN(Int :$months!, Int :$pairs-produced!) { my @rabbit-ages .= push: 1; for 1..$months { for @rabbit-ages -> $age { unless $age == 1 { for $pairs-produced { @rabbit-ages.push: 1 } } $age += 1; } } say @rabbit-ages.elems }