blob: 54cc7d5db6edf0abcc1f9c54f1a51837b30f2bd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/env raku
#
# Task 1 from
# https://perlweeklychallenge.org/blog/perl-weekly-challenge-084/
#
# $ raku ch-1.raku 1234
# 4321
#
# $ raku ch-1.raku -4321
# -1234
#
# $ raku ch-1.raku 2147483647
# 0
#
# $ raku ch-1.raku 2147483641
# 1463847412
#
# $ raku ch-1.raku -2147483641
# -1463847412
#
# $ raku ch-1.raku -2147483647
# 0
unit sub MAIN($n);
my $r = $n.sign * $n.abs.flip;
say -2147483648 <= $r <= 2147483647 ?? $r !! 0;
|
