use Quantum::Superpositions; $nines[1] = any(9); for $i ( 1..8 ){ $nines[$i+1] = any eigenstates any map{ $nines[$_]+$nines[$i-$_+1], $nines[$_]-$nines[$i-$_+1], $nines[$_]*$nines[$i-$_+1], $nines[$_]/any grep{$_!=0}eigenstates $nines[$i-$_+1] } 1..$i; print $nines[$i+1],"\n"; for( $_=1;;$_++){ last unless $_ eq $nines[$i+1] } print "$_\n"; }