diff options
| -rw-r--r-- | challenge-005/rob4t/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-005/rob4t/perl6/ch-1.p6 b/challenge-005/rob4t/perl6/ch-1.p6 index 5e12e50898..d4f5295fbe 100644 --- a/challenge-005/rob4t/perl6/ch-1.p6 +++ b/challenge-005/rob4t/perl6/ch-1.p6 @@ -1,7 +1,7 @@ #!/usr/bin/env perl6 use v6; -sub MAIN(Str $word, Str $file = '/usr/share/dict/words') { +sub MAIN(Str $word, Str $file where *.IO.r = '/usr/share/dict/words') { my $word_bag = $word.lc.comb.Bag; my @found_words = $file.IO.lines.grep: { |