challenge-005/arne-sommer/perl6/mkdictionary


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#! /usr/bin/env perl6

my %source =
  <UK> => "/usr/share/dict/british-english",
  <US> => "/usr/share/dict/american-english",
  <DE> => "/usr/share/dict/ngerman";

unit sub MAIN (Str $language where %source{$language}.defined);

my @lines = %source{$language}.IO.lines.grep(* !~~ /\W/);

spurt "dict-$language.txt", $language eq "DE"
 ?? @lines.join("\n") ~ "\n"
 !! "A\nI\n" ~ @lines.grep( {.chars > 1 } ).join("\n") ~ "\n";