aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-280/jaldhar-h-vyas/blog.txt1
-rwxr-xr-xchallenge-280/jaldhar-h-vyas/perl/ch-1.pl13
-rwxr-xr-xchallenge-280/jaldhar-h-vyas/perl/ch-2.sh3
-rwxr-xr-xchallenge-280/jaldhar-h-vyas/raku/ch-1.raku16
-rwxr-xr-xchallenge-280/jaldhar-h-vyas/raku/ch-2.sh3
5 files changed, 36 insertions, 0 deletions
diff --git a/challenge-280/jaldhar-h-vyas/blog.txt b/challenge-280/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..4dbbfbb441
--- /dev/null
+++ b/challenge-280/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2024/07/perl_weekly_challenge_week_280.html
diff --git a/challenge-280/jaldhar-h-vyas/perl/ch-1.pl b/challenge-280/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..273618ba9e
--- /dev/null
+++ b/challenge-280/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use v5.38;
+
+my %seen;
+
+for (split //, shift) {
+ if (exists $seen{$_}) {
+ say $_;
+ last;
+ } else {
+ $seen{$_} = 1;
+ }
+} \ No newline at end of file
diff --git a/challenge-280/jaldhar-h-vyas/perl/ch-2.sh b/challenge-280/jaldhar-h-vyas/perl/ch-2.sh
new file mode 100755
index 0000000000..3ad9414204
--- /dev/null
+++ b/challenge-280/jaldhar-h-vyas/perl/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E '$_=shift;s/\|.+?\||[^*]//g;say y/*//;' "$@"
diff --git a/challenge-280/jaldhar-h-vyas/raku/ch-1.raku b/challenge-280/jaldhar-h-vyas/raku/ch-1.raku
new file mode 100755
index 0000000000..6f67121f3b
--- /dev/null
+++ b/challenge-280/jaldhar-h-vyas/raku/ch-1.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/raku
+
+sub MAIN(
+ $str
+) {
+ my %seen;
+
+ for ($str.comb) -> $c {
+ if %seen{$c}:exists {
+ say $c;
+ last;
+ } else {
+ %seen{$c} = True;
+ }
+ }
+} \ No newline at end of file
diff --git a/challenge-280/jaldhar-h-vyas/raku/ch-2.sh b/challenge-280/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..ec428902a5
--- /dev/null
+++ b/challenge-280/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0].subst(/\|.+?\||<-[*]>/,q{},:g).chars.say' "$@"