Chemical programming in Perl 6

chemical.pl6

sub prime-reaction(@ (Int $a, Int $b)) {
  $a > $b && $a %% $b ?? [($a div $b), $b] !! [$a, $b]
}

my @molecules = 2..101;

sub mix-and-react(@mols is raw) {
  my @mixed = (@mols.pick: *).rotor(2);
  @mols = @mixed.map(&prime-reaction).flat;
}

sub reaction-cycle(UInt $n) {
  my @mols = @molecules;
  mix-and-react(@mols) for [^$n];
  @mols;
}

say reaction-cycle(1000).unique.sort;

[Video] "Unconventional Programming with Chemical Computing" by Carin Meier
[Article] "Chemical Computing with Clojure" by Carin Meier
[PDF] "Principles of Chemical Programming" by Jean-Pierre Banâtre, Pascal Fradet and Yann Radenac
[Code] Same algorithm in Clojure