From e0a6f6ab1d975ee07836a18acbfbe7cb9605e35a Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Tue, 3 Sep 2019 21:45:54 +0100 Subject: - Added solutions by Laurent Rosenfeld. --- challenge-024/laurent-rosenfeld/blog.txt | 1 + challenge-024/laurent-rosenfeld/perl5/ch-1.sh | 1 + challenge-024/laurent-rosenfeld/perl5/ch-2.pl | 16 ++++++++++++++++ challenge-024/laurent-rosenfeld/perl6/ch-1.sh | 1 + challenge-024/laurent-rosenfeld/perl6/ch-2.p6 | 10 ++++++++++ 5 files changed, 29 insertions(+) create mode 100644 challenge-024/laurent-rosenfeld/blog.txt create mode 100644 challenge-024/laurent-rosenfeld/perl5/ch-1.sh create mode 100644 challenge-024/laurent-rosenfeld/perl5/ch-2.pl create mode 100644 challenge-024/laurent-rosenfeld/perl6/ch-1.sh create mode 100644 challenge-024/laurent-rosenfeld/perl6/ch-2.p6 (limited to 'challenge-024') 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; -- cgit