MadcapJake · April 4, 2016 16:10 · MadcapJake · Apr 4, 2016
diff --git a/chemical.pl6 b/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;
	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;