aboutsummaryrefslogtreecommitdiff
path: root/challenge-121
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2021-07-19 05:55:23 +0100
committerGitHub <noreply@github.com>2021-07-19 05:55:23 +0100
commita5f4e769a8d14320b7333b01b78d8101f52c303e (patch)
treea09fbf5d04c9ed8836f57acbb9e7549fa74231f7 /challenge-121
parentf793a9d18a6884b115d179508f405799996a9713 (diff)
parentc061337c22fed73627d23eafd49915b65039c0f5 (diff)
downloadperlweeklychallenge-club-a5f4e769a8d14320b7333b01b78d8101f52c303e.tar.gz
perlweeklychallenge-club-a5f4e769a8d14320b7333b01b78d8101f52c303e.tar.bz2
perlweeklychallenge-club-a5f4e769a8d14320b7333b01b78d8101f52c303e.zip
Merge pull request #4555 from jaldhar/challenge-121
Challenge 121 part 1 by Jaldhar H. Vyas.
Diffstat (limited to 'challenge-121')
-rw-r--r--challenge-121/jaldhar-h-vyas/blog.txt1
-rwxr-xr-xchallenge-121/jaldhar-h-vyas/perl/ch-1.sh2
-rwxr-xr-xchallenge-121/jaldhar-h-vyas/raku/ch-1.sh2
3 files changed, 5 insertions, 0 deletions
diff --git a/challenge-121/jaldhar-h-vyas/blog.txt b/challenge-121/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..6378e339c9
--- /dev/null
+++ b/challenge-121/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2021/07/perl_weekly_challenge_week_121.html
diff --git a/challenge-121/jaldhar-h-vyas/perl/ch-1.sh b/challenge-121/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..095afcc034
--- /dev/null
+++ b/challenge-121/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+perl -E 'say $ARGV[0] ^ (1 << $ARGV[1] - 1);' $@ \ No newline at end of file
diff --git a/challenge-121/jaldhar-h-vyas/raku/ch-1.sh b/challenge-121/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..5d033c4834
--- /dev/null
+++ b/challenge-121/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,2 @@
+#!/bin/sh
+raku -e 'say @*ARGS[0] +^ (1 +< (@*ARGS[1] - 1));' $@