aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuca Ferrari <fluca1978@gmail.com>2021-11-22 10:10:50 +0100
committerLuca Ferrari <fluca1978@gmail.com>2021-11-22 10:10:50 +0100
commit440d01928a08460d80f70a3a312d752fcabbddc5 (patch)
treeeedbfbaeedffce77686b584fd8e3b7e2813c14a0
parente57e8ba97ca974deeadbd7137390e99a38d8304d (diff)
downloadperlweeklychallenge-club-440d01928a08460d80f70a3a312d752fcabbddc5.tar.gz
perlweeklychallenge-club-440d01928a08460d80f70a3a312d752fcabbddc5.tar.bz2
perlweeklychallenge-club-440d01928a08460d80f70a3a312d752fcabbddc5.zip
Task 1 done
-rwxr-xr-xchallenge-140/luca-ferrari/raku/ch-1.p67
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-140/luca-ferrari/raku/ch-1.p6 b/challenge-140/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..5e3aeff205
--- /dev/null
+++ b/challenge-140/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,7 @@
+#!raku
+
+sub MAIN( Int $a where { $a > 0 && $a ~~ /^ <[01]>+ $/ } ,
+ Int $b where { $b > 0 && $b ~~ /^ <[01]>+ $/ } ) {
+
+ $_.base( 2 ).say given $a.parse-base( 2 ) + $b.parse-base( 2 );
+}