diff options
| author | Daniel Mita <mienaikage@gmail.com> | 2019-12-14 12:31:01 +0000 |
|---|---|---|
| committer | Daniel Mita <mienaikage@gmail.com> | 2019-12-14 12:31:01 +0000 |
| commit | 637b0400099652c4fe2ca102fbd15866c7f69653 (patch) | |
| tree | fe4da069c90bb0065e232a18d346fa3938a78077 /challenge-038 | |
| parent | dd00e9f0fce04b250f290bfe3211e7377903b4af (diff) | |
| download | perlweeklychallenge-club-637b0400099652c4fe2ca102fbd15866c7f69653.tar.gz perlweeklychallenge-club-637b0400099652c4fe2ca102fbd15866c7f69653.tar.bz2 perlweeklychallenge-club-637b0400099652c4fe2ca102fbd15866c7f69653.zip | |
Adjustment for finding dictionary file
Diffstat (limited to 'challenge-038')
| -rwxr-xr-x | challenge-038/daniel-mita/perl6/ch-2.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-038/daniel-mita/perl6/ch-2.p6 b/challenge-038/daniel-mita/perl6/ch-2.p6 index ac8a3588a9..beecd023ca 100755 --- a/challenge-038/daniel-mita/perl6/ch-2.p6 +++ b/challenge-038/daniel-mita/perl6/ch-2.p6 @@ -23,7 +23,7 @@ sub MAIN (--> Nil) { given %tiles.pick(7).Bag -> %picked { %picked.say; # source: https://www.wordgamedictionary.com/sowpods/download/sowpods.txt - .say for 'sowpods.txt'.IO.slurp.uc.words + .say for $?FILE.IO.parent.add('sowpods.txt').slurp.uc.words .race.grep( *.comb ⊆ %picked ) .map({ $_ => .comb.map({ %values{$_} }).sum }) .sort({ $^b.value <=> $^a.value }); |