blob: ef72c5262d419d3fa6727a7ce4f83ede98f8c687 (
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 perl
use Modern::Perl;
# TASK #1 › Reverse Integer
# Submitted by: Mohammad S Anwar
# You are given an integer $N.
# Write a script to reverse the given integer and print the result. Print 0 if the result doesn’t fit in 32-bit signed integer.
# The number 2,147,483,647 is the maximum positive value for a 32-bit signed binary integer in computing.
# Example 1:
# Input: 1234
# Output: 4321
# Example 2:
# Input: -1234
# Output: -4321
# Example 3:
# Input: 1231230512
# Output: 0
my $N = shift || 0;
my $negative = $N < 0;
$N = -$N if $negative;
my $Nr = 0 + join '', reverse split '', $N;
say $Nr <= 2_147_483_647 ? $negative ? -$Nr : $Nr : 0;
|
