Count the coins/0-1: Difference between revisions
m
→{{header|Raku}}: DRY
Thundergnat (talk | contribs) m (→{{header|Raku}}: left one out) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: DRY) |
||
Line 84:
put "\n\nHow many combinations of [{ @items.join: ', ' }] 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";
put "\nOrder important:\nCount: { +$
put $p.pick(10).sort».join(', ').join: "\n";
}
}</lang>
| |||