Challenge 36 part 1 by Jaldhar H. Vyas

2 files changed, 47 insertions, 0 deletions

diff --git a/challenge-036/jaldhar-h-vyas/perl/ch-1.pl b/challenge-036/jaldhar-h-vyas/perl/ch-1.pl
new file mode 100755
index 0000000000..ba043ee955
--- /dev/null
+++ b/challenge-036/jaldhar-h-vyas/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+sub validateVIN {
+    my ($vin) = @_;
+
+    if (length $vin != 17) {
+        return undef;
+    }
+
+    if ($vin !~ /^
+        [[:alnum:]]{3} # World Manufacturer Identifier
+        [[:alnum:]]{6} # Vehicle Descriptor Section
+        [[:alnum:]]{8} # Vehicle Identifier Section
+    $/msx) {
+        return undef;
+    }
+
+    return 1;
+}
+
+say (validateVIN(shift // q{}) ? 'VALID' : 'INVALID');
diff --git a/challenge-036/jaldhar-h-vyas/raku/ch-1.p6 b/challenge-036/jaldhar-h-vyas/raku/ch-1.p6
new file mode 100755
index 0000000000..ee267965ec
--- /dev/null
+++ b/challenge-036/jaldhar-h-vyas/raku/ch-1.p6
@@ -0,0 +1,23 @@
+#!/usr/bin/perl6
+
+sub validateVIN(Str $vin) {
+
+    if ($vin.chars != 17) {
+        return False;
+    }
+
+    if $vin !~~ /^
+        <alnum> ** 3 # World Manufacturer Identifier
+        <alnum> ** 6 # Vehicle Descriptor Section
+        <alnum> ** 8 # Vehicle Identifier Section
+    $/ {
+        return False;
+    }
+
+    return True;
+}
+
+multi sub MAIN(Str $vin) {
+
+    say (validateVIN($vin) ?? 'VALID' !! 'INVALID');
+}