diff options
| -rw-r--r-- | challenge-121/jaldhar-h-vyas/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-121/jaldhar-h-vyas/perl/ch-1.sh | 2 | ||||
| -rwxr-xr-x | challenge-121/jaldhar-h-vyas/raku/ch-1.sh | 2 |
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));' $@ |