English cardinal anagrams: Difference between revisions
m
→{{header|Raku}}: Make it more obvious where the groups begin and end
(Added Wren) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: Make it more obvious where the groups begin and end) |
||
Line 32:
(^$_).map: { %eca{.&cardinal.comb.sort.join}.push: $_ }
once say "\nFirst 30 English cardinal anagrams:\n " ~
(sort flat %eca.grep(+*.value > 1)».value.map: *.flat)[^30]\
.batch(10)».fmt("%3d").join: "\n ";
say "\nCount of English cardinal anagrams up to {.&comma}: " ~
+%eca.grep(+*.value > 1)».value.map: *.flat;
say "\nLargest group(s) of English cardinal anagrams up to {.&comma}:\n
%eca.&all-max( :by(+*.value) )».value.sort.join
}</syntaxhighlight>
{{out}}
<pre>First 30 English cardinal anagrams:
106 107 108 109 112 122 123 124 125 126
127 128 129 132 133 134 135 136 137 138
Count of English cardinal anagrams up to 1,000: 317
Largest group(s) of English cardinal anagrams up to 1,000:
Count of English cardinal anagrams up to 10,000: 2534
Largest group(s) of English cardinal anagrams up to 10,000:
=={{header|Wren}}==
|