- Added solutions by Laurent Rosenfeld.

5 files changed, 29 insertions, 0 deletions

diff --git a/challenge-024/laurent-rosenfeld/blog.txt b/challenge-024/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..d48306ce08
--- /dev/null
+++ b/challenge-024/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+http://blogs.perl.org/users/laurent_r/2019/09/perl-weekly-challenge-24-smallest-script-and-inverted-index.html
diff --git a/challenge-024/laurent-rosenfeld/perl5/ch-1.sh b/challenge-024/laurent-rosenfeld/perl5/ch-1.sh
new file mode 100644
index 0000000000..69bac43ae2
--- /dev/null
+++ b/challenge-024/laurent-rosenfeld/perl5/ch-1.sh
@@ -0,0 +1 @@
+perl -e ''
diff --git a/challenge-024/laurent-rosenfeld/perl5/ch-2.pl b/challenge-024/laurent-rosenfeld/perl5/ch-2.pl
new file mode 100644
index 0000000000..8d20b84ba5
--- /dev/null
+++ b/challenge-024/laurent-rosenfeld/perl5/ch-2.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Data::Dumper;
+
+my @files = glob "./*.pl";
+my %dict;
+for my $file (@files) {
+    open my $IN, "<", $file or die "Cannot open $file $!";
+    while (my $line = <$IN>) {
+        my @words = grep { /^\w{3,}$/ } split /\s+/, $line;;
+        $dict{$_}{$file} = 1 for @words;
+    }
+    close $IN;
+}
+print Dumper \%dict;
diff --git a/challenge-024/laurent-rosenfeld/perl6/ch-1.sh b/challenge-024/laurent-rosenfeld/perl6/ch-1.sh
new file mode 100644
index 0000000000..a41057bbec
--- /dev/null
+++ b/challenge-024/laurent-rosenfeld/perl6/ch-1.sh
@@ -0,0 +1 @@
+perl6 -e ''
diff --git a/challenge-024/laurent-rosenfeld/perl6/ch-2.p6 b/challenge-024/laurent-rosenfeld/perl6/ch-2.p6
new file mode 100644
index 0000000000..1293ba899d
--- /dev/null
+++ b/challenge-024/laurent-rosenfeld/perl6/ch-2.p6
@@ -0,0 +1,10 @@
+use v6;
+
+my @files = grep { /\.p6$/ or /\.pl6$/ }, dir('.');
+my %dict;
+for @files -> $file {
+    for $file.IO.lines.words.grep({/^ \w ** 3..* $/}) -> $word {
+        %dict{$word}{$file} = True;
+    }
+}
+.say for %dict{'given'}.keys;