diff options
| author | lakpatashi <lakpatashi@gmail.com> | 2021-04-17 18:25:42 +0530 |
|---|---|---|
| committer | lakpatashi <lakpatashi@gmail.com> | 2021-04-17 18:25:42 +0530 |
| commit | b2aec6cfbbbba675f79e1bd4127ed96877a15bb7 (patch) | |
| tree | 41f8b0cc8fdd6324ff88b1bc208d71725ca5b555 /challenge-007 | |
| parent | 9cc484c5ab48acfcb66568d76e30bbf5fd720108 (diff) | |
| download | perlweeklychallenge-club-b2aec6cfbbbba675f79e1bd4127ed96877a15bb7.tar.gz perlweeklychallenge-club-b2aec6cfbbbba675f79e1bd4127ed96877a15bb7.tar.bz2 perlweeklychallenge-club-b2aec6cfbbbba675f79e1bd4127ed96877a15bb7.zip | |
Finished challenge-007 ch-1 only with perl
Diffstat (limited to 'challenge-007')
| -rw-r--r-- | challenge-007/lakpatashi/README | 1 | ||||
| -rwxr-xr-x | challenge-007/lakpatashi/perl/ch-1.pl | 11 |
2 files changed, 12 insertions, 0 deletions
diff --git a/challenge-007/lakpatashi/README b/challenge-007/lakpatashi/README new file mode 100644 index 0000000000..bc153bd576 --- /dev/null +++ b/challenge-007/lakpatashi/README @@ -0,0 +1 @@ +Solution by lakpatashi diff --git a/challenge-007/lakpatashi/perl/ch-1.pl b/challenge-007/lakpatashi/perl/ch-1.pl new file mode 100755 index 0000000000..647b26e3ca --- /dev/null +++ b/challenge-007/lakpatashi/perl/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use List::Util qw(sum); + +# PART 1 +for my $i (1..50){ + my $digitSum = sum split( //,$i); + print "$i\n" unless $i % $digitSum; +} |