diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-04 18:27:39 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2019-04-04 18:27:39 +0100 |
| commit | 553d046497724970361ac146943c5bdc7ca5dd0e (patch) | |
| tree | 06b215a4d524a077774d4f7e358071dc21ff0a45 | |
| parent | 57b7f5e453236071384a39e3e4de1bfa1b5a09e6 (diff) | |
| download | perlweeklychallenge-club-553d046497724970361ac146943c5bdc7ca5dd0e.tar.gz perlweeklychallenge-club-553d046497724970361ac146943c5bdc7ca5dd0e.tar.bz2 perlweeklychallenge-club-553d046497724970361ac146943c5bdc7ca5dd0e.zip | |
- Added solution from "Dough Schrag".
| -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); +} + |