diff options
| -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 }); |