Untitled

#!/usr/bin/env perl6

class RabbitPair {
  has Int $.age is rw;
  method BUILD {
    $.age = 1;
  }
  method grow-up {
    $.age += 1;
  }
  method of-age {
    return $.age > 1
  }
  method Str {
    if $.age > 1 {
      "\c[RABBIT]\c[RABBIT]($.age)"
    } else {
      "\c[RABBIT FACE]\c[RABBIT FACE]($.age)"
    }
  }
}

sub MAIN() {
  my $months = 6;
  my $pairs-produced = 2;
  
  my @nursery;
  my @playpen;
  
  @nursery.push: RabbitPair.new;
  
  for 1..$months -> $month {
    
    say "month $month:\n\tnursery: @nursery[]\n\tplaypen: @playpen[]";

    # Adulting
    for @playpen {
      for ^$pairs-produced { @nursery.push: RabbitPair.new }
    }

    # Growing Up
    for @nursery.pairs -> $i, $pair { 
      $pair.grow-up;
      
      if $pair.of-age {
        @playpen.push: @nursery.splice($i, 1);
      }
    }

  }
  say @nursery.elems + @playpen.elems;
}