aboutsummaryrefslogtreecommitdiff
path: root/challenge-084
diff options
context:
space:
mode:
authorMohammad S Anwar <mohammad.anwar@yahoo.com>2020-11-23 04:25:14 +0000
committerMohammad S Anwar <mohammad.anwar@yahoo.com>2020-11-23 04:25:14 +0000
commit890b42b2db29ac1d4f738fb7c7d35fc291d5fa62 (patch)
tree1b524be6bffd056d70ccaf5275031489e24144b0 /challenge-084
parent96a22f4411a2b8fe9f7879c6289d7a2f265fd585 (diff)
downloadperlweeklychallenge-club-890b42b2db29ac1d4f738fb7c7d35fc291d5fa62.tar.gz
perlweeklychallenge-club-890b42b2db29ac1d4f738fb7c7d35fc291d5fa62.tar.bz2
perlweeklychallenge-club-890b42b2db29ac1d4f738fb7c7d35fc291d5fa62.zip
- Deleted duplicate solution.
Diffstat (limited to 'challenge-084')
-rw-r--r--challenge-084/pjdurai/ch-1.p623
1 files changed, 0 insertions, 23 deletions
diff --git a/challenge-084/pjdurai/ch-1.p6 b/challenge-084/pjdurai/ch-1.p6
deleted file mode 100644
index 4238b4dd7f..0000000000
--- a/challenge-084/pjdurai/ch-1.p6
+++ /dev/null
@@ -1,23 +0,0 @@
-use Test;
-
-# Positive
-multi solve(Int $N where * >= 0){
- my $reversed-num = val $N.Str().flip();
- return 0 if $reversed-num > int32.Range[*-1];
- $reversed-num;
-}
-
-# Negative
-multi solve(Int $N where * < 0){
- - solve abs $N;
-}
-
-multi MAIN() {
- ok solve(1234) == 4321, "1234 => 4321";
- ok solve(1231230512) == 0, "1231230512 => 0";
- ok solve(-1234) == -4321, "-1234 => -4321";
-}
-
-multi MAIN(Int $N) {
- say solve($N);
-}