[euler] make solution to problem 22 give correct answer

The input data needed to have the double quotes stripped from it and the words split on commas.
Raku · Mar 16, 2015 · 3e53705 · 3e53705
1 parent 328646a
commit 3e53705
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/categories/euler/prob022-grondilu.pl b/categories/euler/prob022-grondilu.pl
@@ -2,8 +2,10 @@
 my $i = 1;
 constant A = 'A'.ord - 1;
 my $names-file = $*PROGRAM_NAME.IO.dirname ~ "/names.txt";
+my $data = slurp $names-file;
+my @names = sort $data.subst('"', '', :g).split(',');
 say [+] gather
-for sort slurp $names-file {
+for @names {
     take $i++ * [+] .comb».ord »-» A;
 }