diff options
| author | Magnus Woldrich <m@japh.se> | 2019-04-02 10:55:09 +0200 |
|---|---|---|
| committer | Magnus Woldrich <m@japh.se> | 2019-04-02 10:55:09 +0200 |
| commit | 536145b289b04b68218cef58a9158e7942988ecc (patch) | |
| tree | 0a4dcfe70ff24f4bee3251faa88d24daadb56867 | |
| parent | 606855b5dacc00b2eb4e630f38484a1d8ddacf4b (diff) | |
| download | perlweeklychallenge-club-536145b289b04b68218cef58a9158e7942988ecc.tar.gz perlweeklychallenge-club-536145b289b04b68218cef58a9158e7942988ecc.tar.bz2 perlweeklychallenge-club-536145b289b04b68218cef58a9158e7942988ecc.zip | |
add ch-2.p6
| -rw-r--r-- | challenge-002/magnus-woldrich/perl6/ch-2.p6 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-002/magnus-woldrich/perl6/ch-2.p6 b/challenge-002/magnus-woldrich/perl6/ch-2.p6 new file mode 100644 index 0000000000..0682e85732 --- /dev/null +++ b/challenge-002/magnus-woldrich/perl6/ch-2.p6 @@ -0,0 +1,12 @@ +#!/bin/perl6 +# my first ever perl6 script +# 10/10 would do again + +if @*ARGS { + for @*ARGS -> $arg { + printf "%d\n", $arg; + } +} +else { + printf "%d\n", $_ for lines(); +} |