From d1befd1d56895d75eda1e212944b47b8e34a9002 Mon Sep 17 00:00:00 2001 From: Luiz Felipe Date: Thu, 5 May 2022 18:17:36 -0300 Subject: Added the first challenge --- challenge-163/luiz-felipe/perl/ch-1.pl | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 challenge-163/luiz-felipe/perl/ch-1.pl diff --git a/challenge-163/luiz-felipe/perl/ch-1.pl b/challenge-163/luiz-felipe/perl/ch-1.pl new file mode 100644 index 0000000000..2eb62b2a3b --- /dev/null +++ b/challenge-163/luiz-felipe/perl/ch-1.pl @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use feature 'say'; + +my (@numbers); + +@numbers = @ARGV or die "you need to pass the numbers to the script"; + +say "the sum of bitwise of these numbers are ", sum_bitwise(@numbers); + +sub sum_bitwise { + my (@numbers, $sum); + + @numbers = @_; + + $sum = 0; + while (scalar @numbers != 0) { + my ($first); + + $first = $numbers[0]; + for my $i (1..$#numbers) { + $sum += $first & $numbers[$i]; + } + + shift @numbers; + } + + return $sum; +} -- cgit From 33e260c75e8464c38ed0a9cf81c87fd66a22a2c6 Mon Sep 17 00:00:00 2001 From: Luiz Felipe Date: Thu, 5 May 2022 18:20:29 -0300 Subject: Added the second challenge --- challenge-163/luiz-felipe/perl/ch-2.pl | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 challenge-163/luiz-felipe/perl/ch-2.pl diff --git a/challenge-163/luiz-felipe/perl/ch-2.pl b/challenge-163/luiz-felipe/perl/ch-2.pl new file mode 100644 index 0000000000..be187bbc8e --- /dev/null +++ b/challenge-163/luiz-felipe/perl/ch-2.pl @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use feature 'say'; + +my (@numbers); + +@numbers = @ARGV or die "you need to pass the numbers to the script"; + +say "The sum of these numbers is ", summations(@numbers); + +sub summations { + my (@numbers, $sum); + + @numbers = @_; + + while (scalar @numbers != 1) { + my (@summations, $sum); + + $sum = 0; + foreach my $i (1..$#numbers) { + $sum += $numbers[$i]; + push @summations, $sum; + } + + @numbers = @summations; + } + + return $numbers[0]; +} -- cgit From d75318e1d258e1b3ed411ff4aa5e9ace212b2b21 Mon Sep 17 00:00:00 2001 From: Luiz Felipe Date: Thu, 5 May 2022 18:21:23 -0300 Subject: Added the README --- challenge-163/luiz-felipe/README | 1 + 1 file changed, 1 insertion(+) create mode 100644 challenge-163/luiz-felipe/README diff --git a/challenge-163/luiz-felipe/README b/challenge-163/luiz-felipe/README new file mode 100644 index 0000000000..b852de4736 --- /dev/null +++ b/challenge-163/luiz-felipe/README @@ -0,0 +1 @@ +Solution by Luiz Felipe. -- cgit