diff options
| author | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-10-26 09:05:48 +0000 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-10-26 09:05:48 +0000 |
| commit | d9889064e10d818a152aba556795487346d315a9 (patch) | |
| tree | 14cef2e97289e4417a9dac2b22436816581b40b2 | |
| parent | fd7e26caefddd84bf1662d340fb4e512a74844c7 (diff) | |
| download | perlweeklychallenge-club-d9889064e10d818a152aba556795487346d315a9.tar.gz perlweeklychallenge-club-d9889064e10d818a152aba556795487346d315a9.tar.bz2 perlweeklychallenge-club-d9889064e10d818a152aba556795487346d315a9.zip | |
Flipping integers
| -rw-r--r-- | challenge-084/simon-proctor/raku/ch-1.raku | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-084/simon-proctor/raku/ch-1.raku b/challenge-084/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..531c917226 --- /dev/null +++ b/challenge-084/simon-proctor/raku/ch-1.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku + +use v6; + +#| Given an Integer return the reversed version or 0 if it won't fit in an unsigned 32 bit +sub MAIN( Int $N ) { + constant MAX = 2147483647; + my $sign = $N < 0 ?? -1 !! 1; + my $val = abs($N).flip; + + say $val > MAX ?? 0 !! $val * $sign; +} |