diff options
| -rw-r--r-- | challenge-002/doug-schrag/perl6/ch-1.p6 | 5 | ||||
| -rw-r--r-- | challenge-002/doug-schrag/perl6/ch-2.p6 | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-002/doug-schrag/perl6/ch-1.p6 b/challenge-002/doug-schrag/perl6/ch-1.p6 new file mode 100644 index 0000000000..dc45f1aa15 --- /dev/null +++ b/challenge-002/doug-schrag/perl6/ch-1.p6 @@ -0,0 +1,5 @@ +use v6; + +for @*ARGS { + :10($_).say +} diff --git a/challenge-002/doug-schrag/perl6/ch-2.p6 b/challenge-002/doug-schrag/perl6/ch-2.p6 new file mode 100644 index 0000000000..c49fee4235 --- /dev/null +++ b/challenge-002/doug-schrag/perl6/ch-2.p6 @@ -0,0 +1,6 @@ +use v6; + +sub MAIN(Cool $n, Bool :$to35 = True, Bool :$to10 ) { + say $to10 ?? :35($n) !! $n.base(35); +} + |