diff options
| -rw-r--r-- | challenge-143/paulo-custodio/perl/ch-1.pl | 98 | ||||
| -rw-r--r-- | challenge-143/paulo-custodio/perl/ch-2.pl | 42 | ||||
| -rw-r--r-- | challenge-143/paulo-custodio/python/ch-1.py | 6 | ||||
| -rw-r--r-- | challenge-143/paulo-custodio/python/ch-2.py | 30 |
4 files changed, 88 insertions, 88 deletions
diff --git a/challenge-143/paulo-custodio/perl/ch-1.pl b/challenge-143/paulo-custodio/perl/ch-1.pl index 90b6fe6506..73a806191b 100644 --- a/challenge-143/paulo-custodio/perl/ch-1.pl +++ b/challenge-143/paulo-custodio/perl/ch-1.pl @@ -3,10 +3,10 @@ # TASK #1 > Calculator # Submitted by: Mohammad S Anwar # You are given a string, $s, containing mathematical expression. -# +# # Write a script to print the result of the mathematical expression. To keep # it simple, please only accept + - * (). -# +# # Example 1: # Input: $s = "10 + 20 - 5" # Output: 25 @@ -20,61 +20,61 @@ use Modern::Perl; # ($input, $value) = expr($input) sub expr { - my($input) = @_; - ($input, my $value) = factor($input); - while (1) { - if ($input =~ s/^\s*\*//) { - ($input, my $b) = factor($input); - $value *= $b; - } - elsif ($input =~ s/^\s*\///) { - ($input, my $b) = factor($input); - $value /= $b; - } - elsif ($input =~ /^\s*(?:\)|$)/) { - return ($input, $value); - } - else { - die "expected / or * at: $input\n"; - } - } + my($input) = @_; + ($input, my $value) = factor($input); + while (1) { + if ($input =~ s/^\s*\*//) { + ($input, my $b) = factor($input); + $value *= $b; + } + elsif ($input =~ s/^\s*\///) { + ($input, my $b) = factor($input); + $value /= $b; + } + elsif ($input =~ /^\s*(?:\)|$)/) { + return ($input, $value); + } + else { + die "expected / or * at: $input\n"; + } + } } # ($input, $value) = factor($input) sub factor { - my($input) = @_; - ($input, my $value) = term($input); - while (1) { - if ($input =~ s/^\s*\+//) { - ($input, my $b) = term($input); - $value += $b; - } - elsif ($input =~ s/^\s*\-//) { - ($input, my $b) = term($input); - $value -= $b; - } - else { - return ($input, $value); - } - } + my($input) = @_; + ($input, my $value) = term($input); + while (1) { + if ($input =~ s/^\s*\+//) { + ($input, my $b) = term($input); + $value += $b; + } + elsif ($input =~ s/^\s*\-//) { + ($input, my $b) = term($input); + $value -= $b; + } + else { + return ($input, $value); + } + } } # ($input, $value) = term($input) sub term { - my($input) = @_; - while (1) { - if ($input =~ s/^\s*([-+]?\d+)//) { - return ($input, $1); - } - elsif ($input =~ s/^\s*\(//) { - ($input, my $value) = expr($input); - $input =~ s/^\s*\)// or die "expected ) at: $input\n"; - return ($input, $value); - } - else { - die "expected ( or number at: $input\n"; - } - } + my($input) = @_; + while (1) { + if ($input =~ s/^\s*([-+]?\d+)//) { + return ($input, $1); + } + elsif ($input =~ s/^\s*\(//) { + ($input, my $value) = expr($input); + $input =~ s/^\s*\)// or die "expected ) at: $input\n"; + return ($input, $value); + } + else { + die "expected ( or number at: $input\n"; + } + } } my $input = "@ARGV"; diff --git a/challenge-143/paulo-custodio/perl/ch-2.pl b/challenge-143/paulo-custodio/perl/ch-2.pl index a805a8180b..9433cd520d 100644 --- a/challenge-143/paulo-custodio/perl/ch-2.pl +++ b/challenge-143/paulo-custodio/perl/ch-2.pl @@ -3,46 +3,46 @@ # TASK #2 > Stealthy Number # Submitted by: Mohammad S Anwar # You are given a positive number, $n. -# +# # Write a script to find out if the given number is Stealthy Number. -# +# # A positive integer N is stealthy, if there exist positive integers a, b, c, d # such that a * b = c * d = N and a + b = c + d + 1. -# +# # Example 1 # Input: $n = 36 # Output: 1 -# +# # Since 36 = 4 (a) * 9 (b) = 6 (c) * 6 (d) and 4 (a) + 9 (b) = 6 (c) + 6 (d) + 1. # Example 2 # Input: $n = 12 # Output: 1 -# +# # Since 2 * 6 = 3 * 4 and 2 + 6 = 3 + 4 + 1 # Example 3 # Input: $n = 6 # Output: 0 -# +# # Since 2 * 3 = 1 * 6 but 2 + 3 != 1 + 6 + 1 use Modern::Perl; sub is_stealthy { - my($n) = @_; - for my $a (1..$n) { - if ($n % $a == 0) { - my $b = $n / $a; # a*b=n - for my $c (1..$n) { - if ($n % $c == 0) { - my $d = $n / $c; # c*d=n - if ($a+$b==$c+$d+1) { - return 1; - } - } - } - } - } - return 0; + my($n) = @_; + for my $a (1..$n) { + if ($n % $a == 0) { + my $b = $n / $a; # a*b=n + for my $c (1..$n) { + if ($n % $c == 0) { + my $d = $n / $c; # c*d=n + if ($a+$b==$c+$d+1) { + return 1; + } + } + } + } + } + return 0; } my $n = shift//1; diff --git a/challenge-143/paulo-custodio/python/ch-1.py b/challenge-143/paulo-custodio/python/ch-1.py index a81c52fd0e..7705a4eafe 100644 --- a/challenge-143/paulo-custodio/python/ch-1.py +++ b/challenge-143/paulo-custodio/python/ch-1.py @@ -3,10 +3,10 @@ # TASK #1 > Calculator # Submitted by: Mohammad S Anwar # You are given a string, $s, containing mathematical expression. -# +# # Write a script to print the result of the mathematical expression. To keep # it simple, please only accept + - * (). -# +# # Example 1: # Input: $s = "10 + 20 - 5" # Output: 25 @@ -46,7 +46,7 @@ def factor(input): value -= b else: return input, value - + def term(input): input = input.strip()+" " match = re.match(r"[-+]?\d+", input) diff --git a/challenge-143/paulo-custodio/python/ch-2.py b/challenge-143/paulo-custodio/python/ch-2.py index 3d1976d3f0..850ebfac33 100644 --- a/challenge-143/paulo-custodio/python/ch-2.py +++ b/challenge-143/paulo-custodio/python/ch-2.py @@ -3,40 +3,40 @@ # TASK #2 > Stealthy Number # Submitted by: Mohammad S Anwar # You are given a positive number, $n. -# +# # Write a script to find out if the given number is Stealthy Number. -# +# # A positive integer N is stealthy, if there exist positive integers a, b, c, d # such that a * b = c * d = N and a + b = c + d + 1. -# +# # Example 1 # Input: $n = 36 # Output: 1 -# +# # Since 36 = 4 (a) * 9 (b) = 6 (c) * 6 (d) and 4 (a) + 9 (b) = 6 (c) + 6 (d) + 1. # Example 2 # Input: $n = 12 # Output: 1 -# +# # Since 2 * 6 = 3 * 4 and 2 + 6 = 3 + 4 + 1 # Example 3 # Input: $n = 6 # Output: 0 -# +# # Since 2 * 3 = 1 * 6 but 2 + 3 != 1 + 6 + 1 import sys def is_stealthy(n): - for a in range(1, n+1): - if n%a==0: - b = n/a # a*b=n - for c in range(1, n+1): - if n%c==0: - d = n/c # c*d=n - if a+b==c+d+1: - return 1 - return 0 + for a in range(1, n+1): + if n%a==0: + b = n/a # a*b=n + for c in range(1, n+1): + if n%c==0: + d = n/c # c*d=n + if a+b==c+d+1: + return 1 + return 0 n = int(sys.argv[1]) print(is_stealthy(n)) |