From 1a9efd4d05baba135fdb2ef912bbf53589ad2b60 Mon Sep 17 00:00:00 2001 From: ohmycloud Date: Tue, 2 Apr 2019 23:07:07 +0800 Subject: add user ohmycloud --- challenge-002/ohmycloud/README | 1 + challenge-002/ohmycloud/perl6/ch-1.p6 | 3 +++ challenge-002/ohmycloud/perl6/ch-2.p6 | 13 +++++++++++++ 3 files changed, 17 insertions(+) create mode 100644 challenge-002/ohmycloud/README create mode 100644 challenge-002/ohmycloud/perl6/ch-1.p6 create mode 100644 challenge-002/ohmycloud/perl6/ch-2.p6 diff --git a/challenge-002/ohmycloud/README b/challenge-002/ohmycloud/README new file mode 100644 index 0000000000..e993fafea7 --- /dev/null +++ b/challenge-002/ohmycloud/README @@ -0,0 +1 @@ +Solution by Ohmycloud diff --git a/challenge-002/ohmycloud/perl6/ch-1.p6 b/challenge-002/ohmycloud/perl6/ch-1.p6 new file mode 100644 index 0000000000..6cd4ddd03c --- /dev/null +++ b/challenge-002/ohmycloud/perl6/ch-1.p6 @@ -0,0 +1,3 @@ +for <00040 03.5 00.002 .02 .3 0.03> -> $n { + say ($n ~~ /^ 0* %% /).postmatch; +} diff --git a/challenge-002/ohmycloud/perl6/ch-2.p6 b/challenge-002/ohmycloud/perl6/ch-2.p6 new file mode 100644 index 0000000000..fb61967308 --- /dev/null +++ b/challenge-002/ohmycloud/perl6/ch-2.p6 @@ -0,0 +1,13 @@ +# convert from base35 to base10 +sub decimal-to-base35(Str $n) { + :35($n.Str) +} + +say decimal-to-base35("OOM"); + +# convert from base10 to base35 +sub base35-to-decimal(Int $n) { + $n.base(35) +} + +say base35-to-decimal(30262); \ No newline at end of file -- cgit