diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-12-14 12:42:23 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-12-14 12:42:23 +0000 |
| commit | b943e4281663f0b13452e0ed4e2df6e5937e8928 (patch) | |
| tree | fe4da069c90bb0065e232a18d346fa3938a78077 | |
| parent | dd00e9f0fce04b250f290bfe3211e7377903b4af (diff) | |
| parent | 637b0400099652c4fe2ca102fbd15866c7f69653 (diff) | |
| download | perlweeklychallenge-club-b943e4281663f0b13452e0ed4e2df6e5937e8928.tar.gz perlweeklychallenge-club-b943e4281663f0b13452e0ed4e2df6e5937e8928.tar.bz2 perlweeklychallenge-club-b943e4281663f0b13452e0ed4e2df6e5937e8928.zip | |
Merge pull request #1034 from mienaikage/038-2-raku-update-1
Adjustment for finding dictionary file
| -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 }); |