English cardinal anagrams: Difference between revisions
→{{header|Wren}}: Largest groups are now identified as such.
Thundergnat (talk | contribs) m (→{{header|Wren}}: the largest groups are all jumbled together) |
(→{{header|Wren}}: Largest groups are now identified as such.) |
||
Line 64:
=={{header|Wren}}==
{{libheader|Wren-sort}}
{{libheader|Wren-fmt}}
I've reused the code for determining the number names from the related task.
<syntaxhighlight lang="ecmascript">import "./sort" for Sort
Line 140:
if (v.count > max) {
max = v.count
largest = [v]
} else if (v.count == max) {
largest.
}
}
Fmt.print("\nLargest group(s) of English cardinal anagrams up to $,d:", limit)
System.print(largest.map { |l| "[" + l.join(" ") + "]" }.join("\n"))
if (limit == 1000) System.print()
}</syntaxhighlight>
Line 161:
Largest group(s) of English cardinal anagrams up to 1,000:
[679 697 769 796 967 976]
Count of English cardinals up to 10,000: 2,534
Largest group(s) of English cardinal anagrams up to 10,000:
[1679 1697 1769 1796 1967 1976
[2679 2697 2769 2796 2967 2976 6279 6297 6792 6972 7269 7296 7692 7962 9267 9276 9672 9762]
[3679 3697 3769 3796 3967 3976 6379 6397 6793 6973 7369 7396 7693 7963 9367 9376 9673 9763]
[4679 4697 4769 4796 4967 4976 6479 6497
[5679 5697 5769 5796 5967 5976 6579 6597 6795 6975 7569 7596 7695 7965 9567 9576 9675 9765]
▲7961 7962 7963 7964 7965 7968 8679 8697 8769 8796 8967 8976
</pre>
| |||