diff options
| author | lakpatashi <lakpatashi@gmail.com> | 2021-05-09 23:00:52 +0530 |
|---|---|---|
| committer | lakpatashi <lakpatashi@gmail.com> | 2021-05-09 23:00:52 +0530 |
| commit | bd1bf0dbec1ec3ac3d6ab971d79b1234865308c0 (patch) | |
| tree | aae7e0f1a6161a2ffaab53452cc10d84f4a315c6 | |
| parent | 0381a39b17ccd040302474f25d3c1cbbef703327 (diff) | |
| download | perlweeklychallenge-club-bd1bf0dbec1ec3ac3d6ab971d79b1234865308c0.tar.gz perlweeklychallenge-club-bd1bf0dbec1ec3ac3d6ab971d79b1234865308c0.tar.bz2 perlweeklychallenge-club-bd1bf0dbec1ec3ac3d6ab971d79b1234865308c0.zip | |
Finished challenge-016 ch-1 only with perl
| -rw-r--r-- | challenge-016/lakpatashi/README | 1 | ||||
| -rwxr-xr-x | challenge-016/lakpatashi/perl/ch-1.pl | 24 |
2 files changed, 25 insertions, 0 deletions
diff --git a/challenge-016/lakpatashi/README b/challenge-016/lakpatashi/README new file mode 100644 index 0000000000..bc153bd576 --- /dev/null +++ b/challenge-016/lakpatashi/README @@ -0,0 +1 @@ +Solution by lakpatashi diff --git a/challenge-016/lakpatashi/perl/ch-1.pl b/challenge-016/lakpatashi/perl/ch-1.pl new file mode 100755 index 0000000000..b08471ddcb --- /dev/null +++ b/challenge-016/lakpatashi/perl/ch-1.pl @@ -0,0 +1,24 @@ +#!/usr/bin/perl + +use warnings; +use strict; +use Data::Dumper; +use List::Util qw(sum); +use feature qw(switch); + +#part 1 +my $total = 100000; +my $maxIdx; +my $maxPart = 0; +for my $i (1..100){ + $i /= 100; + my $part = $total*$i; + if ($part > $maxPart){ + $maxPart = $part; + $maxIdx = $i*100; + } + #print "$i ==> $part\n"; + $total -= $part; +} +print "Person $maxIdx gets larger part\n"; + |