From 637b0400099652c4fe2ca102fbd15866c7f69653 Mon Sep 17 00:00:00 2001
From: Daniel Mita <mienaikage@gmail.com>
Date: Sat, 14 Dec 2019 12:31:01 +0000
Subject: Adjustment for finding dictionary file

---
 challenge-038/daniel-mita/perl6/ch-2.p6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 });
-- 
cgit