Pangram checker: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: add missing necessary semicolon, remove redundant optional semicolon) |
||
| Line 2,978: | Line 2,978: | ||
(formerly Perl 6) |
(formerly Perl 6) |
||
<syntaxhighlight lang="raku" line>constant Eng = set 'a' .. 'z'; |
<syntaxhighlight lang="raku" line>constant Eng = set 'a' .. 'z'; |
||
constant Cyr = (set 'а' .. 'ё') (-) (set 'ъ', 'ѐ') |
constant Cyr = (set 'а' .. 'ё') (-) (set 'ъ', 'ѐ'); |
||
constant Hex = set 'a' .. 'f'; |
constant Hex = set 'a' .. 'f'; |
||
sub pangram($str, Set $alpha = Eng) { |
sub pangram($str, Set $alpha = Eng) { |
||
$alpha ⊆ $str.lc.comb |
$alpha ⊆ $str.lc.comb |
||
} |
} |
||