Count the coins/0-1: Difference between revisions

Content added Content deleted

Inline

@@ Line 84: / Line 84: @@
     put "\n\nHow many combinations of [{ @items.join: ', ' }] sum to $sum?";
-    given @items.&which: :sum-to( $sum ) {
+    given my @items.&which: :sum-to( $sum ) {
         put "\nOrder unimportant:\nCount: { +$_ }\nIndices" ~ ( +$_ > 10 ?? ' (10 random examples):' !! ':' );
         put .pick(10).sort».join(', ').join: "\n";
-    }
-    given @items.&which( :sum-to( $sum ) ).map: { Slip(.permutations) } {
+        my $p = .race.map: { Slip(.permutations) }
-        put "\nOrder important:\nCount: { +$_ }\nIndices" ~ ( +$_ > 10 ?? ' (10 random examples):' !! ':' );
+        put "\nOrder important:\nCount: { +$p }\nIndices" ~ ( +$p > 10 ?? ' (10 random examples):' !! ':' );
-        put .pick(10).sort».join(', ').join: "\n";
+        put $p.pick(10).sort».join(', ').join: "\n";
     }
 }</lang>