diff options
| -rw-r--r-- | challenge-219/avery-adams/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-219/avery-adams/blog2.txt | 1 | ||||
| -rw-r--r-- | challenge-219/avery-adams/perl/ch-1.pl | 5 | ||||
| -rw-r--r-- | challenge-219/avery-adams/python/ch-1.py | 8 |
4 files changed, 15 insertions, 0 deletions
diff --git a/challenge-219/avery-adams/blog1.txt b/challenge-219/avery-adams/blog1.txt new file mode 100644 index 0000000000..e7575568c1 --- /dev/null +++ b/challenge-219/avery-adams/blog1.txt @@ -0,0 +1 @@ +https://dev.to/oldtechaa/perl-weekly-challenge-219-squaring-up-19md
\ No newline at end of file diff --git a/challenge-219/avery-adams/blog2.txt b/challenge-219/avery-adams/blog2.txt new file mode 100644 index 0000000000..9a6b351aaf --- /dev/null +++ b/challenge-219/avery-adams/blog2.txt @@ -0,0 +1 @@ +https://blogs.perl.org/users/oldtechaa/2023/06/perl-weekly-challenge-219---squaring-up.html diff --git a/challenge-219/avery-adams/perl/ch-1.pl b/challenge-219/avery-adams/perl/ch-1.pl new file mode 100644 index 0000000000..1c35e20f08 --- /dev/null +++ b/challenge-219/avery-adams/perl/ch-1.pl @@ -0,0 +1,5 @@ +#!/usr/bin/perl +use strict; +use v5.24; + +say $_ for (sort {$a <=> $b} (map {$_ * $_} @ARGV)); diff --git a/challenge-219/avery-adams/python/ch-1.py b/challenge-219/avery-adams/python/ch-1.py new file mode 100644 index 0000000000..5bbe55fb26 --- /dev/null +++ b/challenge-219/avery-adams/python/ch-1.py @@ -0,0 +1,8 @@ +#!/usr/bin/python + +list = [int(input("Num1:")), int(input("Num2:")), int(input("Num3:")), int(input("Num4:")), int(input("Num5:"))] +for index in range(len(list)): + list[index] = list[index] ** 2 +list.sort() +for square in list: + print(square) |