diff options
| author | Aleks-Daniel Jakimenko-Aleksejev <alex.jakimenko@gmail.com> | 2019-04-07 22:07:38 +0300 |
|---|---|---|
| committer | Aleks-Daniel Jakimenko-Aleksejev <alex.jakimenko@gmail.com> | 2019-04-07 22:07:38 +0300 |
| commit | 15bf7e64bb4a56c407d265e88ff5e47be9b5c5fb (patch) | |
| tree | 50fc705d74ed9698910770972daad2661abb92df | |
| parent | 124c318c71641cc4e593914fa807a629f556bbce (diff) | |
| download | perlweeklychallenge-club-15bf7e64bb4a56c407d265e88ff5e47be9b5c5fb.tar.gz perlweeklychallenge-club-15bf7e64bb4a56c407d265e88ff5e47be9b5c5fb.tar.bz2 perlweeklychallenge-club-15bf7e64bb4a56c407d265e88ff5e47be9b5c5fb.zip | |
Use args instead of stdin
It's easier to play with it this way.
| -rw-r--r-- | challenge-002/alexdaniel/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-002/alexdaniel/perl6/ch-1.p6 b/challenge-002/alexdaniel/perl6/ch-1.p6 index 9c3ed12b20..7782c6dcea 100644 --- a/challenge-002/alexdaniel/perl6/ch-1.p6 +++ b/challenge-002/alexdaniel/perl6/ch-1.p6 @@ -6,4 +6,4 @@ # the integers. So it's just a neat example on how to do unicode-aware # number matching. -put S:r/^[ <:Nd> & <:Numeric_Value(0)> ]* <before <:Nd>+$>// for lines +put S:r/^[ <:Nd> & <:Numeric_Value(0)> ]* <before <:Nd>+$>// for @*ARGS |