blob: e428df4bb7088bfa5aff5bccb256971301da3181 (
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#
# Retrieved from
# https://perlweeklychallenge.org/blog/perl-weekly-challenge-002
# on 2019-04-06 at 21:28 -04:
#
# Challenge #1
#
# Write a script or one-liner to remove leading zeros
# from positive numbers.
#
# Hmmm...I wonder exactly what is meant by the phrase "positive numbers".
# For example, is --10 a positive number?
# Some example numbers that might be considered positive:
# INPUT I ASSUME THIS IS THE DESIRED OUTPUT
# 0 0
# +0 +0
# +4 +4
# +4.4 +4.4
# +04.4 +4.4
# +--4 +--4
# +--4.4 +--4.4
# 10 10
# Run using Perl 6.
use v6;
# Test input.
my @input = <<0 +0 +4 +4.4 +04.4 +--4 +--4.4 10>>;
# Print a heading.
print q:to/END/;
INPUT OUTPUT
------ ------
END
for (@input)
{
my $input = $_;
s/^^$<prezero>=(<[+-]>*)0+$<postzero>=(\d+)/$<prezero>$<postzero>/;
"%-6s %s\n".printf($input, $_);
}
|
