Isograms and heterograms: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: clip file path) |
Thundergnat (talk | contribs) m (make comment match code) |
||
Line 338: | Line 338: | ||
} |
} |
||
say scalar(@heterogram) . " heterograms with |
say scalar(@heterogram) . " heterograms with more than 10 characters:\n" . join "\n", sort { length $b <=> length $a } @heterogram;</lang> |
||
{{out}} |
{{out}} |
||
<pre style="height:40ex">2 3-isograms: |
<pre style="height:40ex">2 3-isograms: |
||
Line 377: | Line 377: | ||
ii |
ii |
||
32 heterograms with |
32 heterograms with more than 10 characters: |
||
ambidextrous |
ambidextrous |
||
bluestocking |
bluestocking |
||
Line 515: | Line 515: | ||
my $minchars = 10; |
my $minchars = 10; |
||
say "\n({+$_}) heterograms with |
say "\n({+$_}) heterograms with more than $minchars characters:\n" ~ |
||
.sort({[-.chars, ~$_]}).join: "\n" given |
.sort({[-.chars, ~$_]}).join: "\n" given |
||
@words.race.grep({.key.chars >$minchars && .value.values.max == 1})».key;</lang> |
@words.race.grep({.key.chars >$minchars && .value.values.max == 1})».key;</lang> |
||
Line 556: | Line 556: | ||
ii |
ii |
||
(32) heterograms with |
(32) heterograms with more than 10 characters: |
||
ambidextrous |
ambidextrous |
||
bluestocking |
bluestocking |