[euler] read names.txt independently of run dir

Raku · Mar 16, 2015 · 328646a · 328646a
1 parent d85c436
commit 328646a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/categories/euler/prob022-grondilu.pl b/categories/euler/prob022-grondilu.pl
@@ -1,8 +1,9 @@
 use v6;
 my $i = 1;
 constant A = 'A'.ord - 1;
+my $names-file = $*PROGRAM_NAME.IO.dirname ~ "/names.txt";
 say [+] gather
-for sort slurp 'names.txt' {
+for sort slurp $names-file {
     take $i++ * [+] .comb».ord »-» A;
 }