Updated solutions for ch#23

Added solutions for ch#4

7 files changed, 95 insertions, 2 deletions

diff --git a/challenge-004/yet-ebreo/README b/challenge-004/yet-ebreo/README
new file mode 100644
index 0000000000..08724e9a99
--- /dev/null
+++ b/challenge-004/yet-ebreo/README
@@ -0,0 +1 @@
+Solution by Yet Ebreo
\ No newline at end of file
diff --git a/challenge-004/yet-ebreo/perl5/ch-1.pl b/challenge-004/yet-ebreo/perl5/ch-1.pl
new file mode 100644
index 0000000000..91f1675d7a
--- /dev/null
+++ b/challenge-004/yet-ebreo/perl5/ch-1.pl
@@ -0,0 +1,21 @@
+# Write a script to output the same number of PI digits as the size of your script. 
+# Say, if your script size is 10, it should print 3.141592653.
+
+use strict;
+use warnings;
+use 5.010;
+
+my $size = -s $0;
+use bigint;
+my $n = 10 ** ($size+5) * 2;
+my $p = 4 * $n;
+my $i = 0;
+while ($n) {
+    $p += $n;
+    $i += 1;
+    $n *= $i;
+    $n = $n /(2 * $i + 1);
+}
+
+say "File Size: $size Bytes";
+say "PI ($size-digits): 3.".substr $p,2,$size-1;
\ No newline at end of file
diff --git a/challenge-004/yet-ebreo/perl5/ch-2.pl b/challenge-004/yet-ebreo/perl5/ch-2.pl
new file mode 100644
index 0000000000..9bfb7976d5
--- /dev/null
+++ b/challenge-004/yet-ebreo/perl5/ch-2.pl
@@ -0,0 +1,23 @@
+# You are given a file containing a list of words (case insensitive 1 word per line) 
+# and a list of letters. Print each word from the file that can be made using only 
+# letters from the list. You can use each letter only once (though there can be duplicates and you can use each of them once),
+# you don’t have to use all the letters. (Disclaimer: The challenge was proposed by Scimon Proctor)
+
+use strict;
+use warnings;
+use 5.010;
+
+die "Usage:\n\tch-2.pl <file> <letters>\n\n\t<file>\t\t- file containing 1 word perline\n\t<letters>\t- letters to search (no space)\n" if @ARGV<2;
+
+my $filename = shift @ARGV;
+my @letters = shift =~/./g;
+
+open(my $fh, '<', $filename)
+    or die "Could not open file '$filename' $!";
+ 
+while (my $row = <$fh>) {
+    chomp $row;
+    my $hold = $row;
+    $row=~s/$_// for @letters;
+    say $hold if !$row
+}
\ No newline at end of file
diff --git a/challenge-004/yet-ebreo/perl5/words.txt b/challenge-004/yet-ebreo/perl5/words.txt
new file mode 100644
index 0000000000..a6de6a1457
--- /dev/null
+++ b/challenge-004/yet-ebreo/perl5/words.txt
@@ -0,0 +1,26 @@
+a
+quick
+brown
+fox
+jumps
+over
+lazy
+dog
+peter
+piper
+picked
+a
+pan
+of
+pickled
+pepper
+banana
+pine
+trees
+shark
+whale
+zebra
+monkey
+alpha
+bravo
+charlie
\ No newline at end of file
diff --git a/challenge-023/yet-ebreo/perl5/ch-2.pl b/challenge-023/yet-ebreo/perl5/ch-2.pl
index 8af3986a73..e817d6995f 100644
--- a/challenge-023/yet-ebreo/perl5/ch-2.pl
+++ b/challenge-023/yet-ebreo/perl5/ch-2.pl
@@ -25,6 +25,7 @@ say "@r\n";
 #But I feel like I should do a non-backtick/module solution so here we go:
 #It's slow(and inaccurate) on very large numbers
 say "Using non-backticks solution (trial division/modulo):";
+use bigint;
 @r = ();
 while ($n % 2<1) {
     push @r, 2;
diff --git a/challenge-023/yet-ebreo/perl5/ch-3.pl b/challenge-023/yet-ebreo/perl5/ch-3.pl
index 7d4bd97110..cfc3f47b72 100644
--- a/challenge-023/yet-ebreo/perl5/ch-3.pl
+++ b/challenge-023/yet-ebreo/perl5/ch-3.pl
@@ -12,8 +12,7 @@ use JSON;
 binmode STDOUT, ":encoding(UTF-8)";
 
 my $api_content = get "https://www.poemist.com/api/v1/randompoems";
-my @data;
-push @data, @{$_} for JSON->new->utf8->decode($api_content);
+my @data = @{ JSON->new->utf8->decode($api_content) };
 
 #Printing the info of the first poem
 say "$data[0]{title} - $data[0]{poet}{name} - $data[0]{url}\n";
diff --git a/challenge-023/yet-ebreo/perl6/ch-3.p6 b/challenge-023/yet-ebreo/perl6/ch-3.p6
new file mode 100644
index 0000000000..c3f8ddabe1
--- /dev/null
+++ b/challenge-023/yet-ebreo/perl6/ch-3.p6
@@ -0,0 +1,22 @@
+# Write a script to use Random Poems API. This is the easiset API, 
+# I have come across so far. You don’t need API key for this. 
+# They have only route to work with (GET). 
+# The API task is optional but we would love to see your solution.
+
+
+use LWP::Simple;
+use JSON::Tiny;
+my $api_content = LWP::Simple.get('https://www.poemist.com/api/v1/randompoems');
+
+my @data = @(from-json($api_content));
+
+#Printing the info of the first poem
+say "@data[0].{'title'} - @data[0].{'poet'}{'name'} - @data[0].{'url'}";
+
+#Accessing all(5) poems
+# for (@data) {
+#     say "$_.{'title'} - $_.{'poet'}{'name'} - $_.{'url'}";
+# }
+
+#Printing the content of the first poem
+say "@data[0].{'content'}";