diff options
| author | Rob4t <robertgratza@web.de> | 2019-04-22 14:44:13 +0200 |
|---|---|---|
| committer | Rob4t <robertgratza@web.de> | 2019-04-22 14:44:13 +0200 |
| commit | 38a2dd0cc58272e1033b7a5c20c040e0e46404d3 (patch) | |
| tree | f73f2eec4f08131f034a7cd6d50c1d43834b4989 | |
| parent | dd93f741588af128748c55bf327bf2ed9bf75b7c (diff) | |
| download | perlweeklychallenge-club-38a2dd0cc58272e1033b7a5c20c040e0e46404d3.tar.gz perlweeklychallenge-club-38a2dd0cc58272e1033b7a5c20c040e0e46404d3.tar.bz2 perlweeklychallenge-club-38a2dd0cc58272e1033b7a5c20c040e0e46404d3.zip | |
check if file is readable
| -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: { |