diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-11-23 04:25:14 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-11-23 04:25:14 +0000 |
| commit | 890b42b2db29ac1d4f738fb7c7d35fc291d5fa62 (patch) | |
| tree | 1b524be6bffd056d70ccaf5275031489e24144b0 /challenge-084 | |
| parent | 96a22f4411a2b8fe9f7879c6289d7a2f265fd585 (diff) | |
| download | perlweeklychallenge-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.p6 | 23 |
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); -} |
