- Added template for Challenge manwar#69.

dcw803 · Jul 13, 2020 · 07c76e3 · 07c76e3
1 parent b116940
commit 07c76e3
Show file tree

Hide file tree

Showing 176 changed files with 487 additions and 0 deletions.
diff --git a/challenge-069/3ter/README b/challenge-069/3ter/README
@@ -0,0 +1 @@
+Solutions by 3ter.
diff --git a/challenge-069/aaron-rowe/README b/challenge-069/aaron-rowe/README
@@ -0,0 +1 @@
+Solutions by Aaron Rowe.
diff --git a/challenge-069/aaron-sherman/README b/challenge-069/aaron-sherman/README
@@ -0,0 +1 @@
+Solutions by Aaron Sherman.
diff --git a/challenge-069/abigail/README b/challenge-069/abigail/README
@@ -0,0 +1 @@
+Solution by Abigail
diff --git a/challenge-069/adam-russell/README b/challenge-069/adam-russell/README
@@ -0,0 +1 @@
+Solution by Adam Russell 
diff --git a/challenge-069/ailbhe-tweedie/README b/challenge-069/ailbhe-tweedie/README
@@ -0,0 +1 @@
+Solution by Ailbhe Tweedie
diff --git a/challenge-069/alex-daniel/README b/challenge-069/alex-daniel/README
@@ -0,0 +1 @@
+Solution by Alex Daniel.
diff --git a/challenge-069/alexander-karelas/README b/challenge-069/alexander-karelas/README
@@ -0,0 +1 @@
+Solution by Alexander Karelas
diff --git a/challenge-069/alicia-bielsa/README b/challenge-069/alicia-bielsa/README
@@ -0,0 +1 @@
+Solution by Alicia Beilsa.
diff --git a/challenge-069/andrezgz/README b/challenge-069/andrezgz/README
@@ -0,0 +1 @@
+Solution by Andrezgz
diff --git a/challenge-069/anton-fedotov/README b/challenge-069/anton-fedotov/README
@@ -0,0 +1 @@
+Solutions by Anton Fedotov.
diff --git a/challenge-069/antonio-gamiz/README b/challenge-069/antonio-gamiz/README
@@ -0,0 +1 @@
+Solution by Antonio Gamiz
diff --git a/challenge-069/arne-sommer/README b/challenge-069/arne-sommer/README
@@ -0,0 +1 @@
+Solution by Arne Sommer.
diff --git a/challenge-069/arpad-toth/README b/challenge-069/arpad-toth/README
@@ -0,0 +1 @@
+Solution by Arpad Toth
diff --git a/challenge-069/ash/README b/challenge-069/ash/README
@@ -0,0 +1,3 @@
+Solution by Andrew Shitov
+
+Comments to the task 1: https://andrewshitov.com/2020/07/06/raku-challenge-week-68/
diff --git a/challenge-069/athanasius/README b/challenge-069/athanasius/README
@@ -0,0 +1 @@
+Solution by Athanasius
diff --git a/challenge-069/aubrey-quarcoo/README b/challenge-069/aubrey-quarcoo/README
@@ -0,0 +1 @@
+Solution by Aubrey Quarcoo
diff --git a/challenge-069/ben-davies/README.md b/challenge-069/ben-davies/README.md
@@ -0,0 +1,11 @@
+Solution by Ben Davies
+
+# Using the Solutions
+
+- Install
+  [Idris](https://github.com/idris-lang/Idris-dev/wiki/Installation-Instructions)
+  and ensure its executable is in your path.
+- Run `$ make -j2`. The executables for the challenges will be output to
+  `./ch-1` and `./ch-2`.
+- Run `$ make clean` to remove compiled objects or `$ make distclean` to
+  remove the executables as well, if you wish.
diff --git a/challenge-069/bill-palmer/README b/challenge-069/bill-palmer/README
@@ -0,0 +1 @@
+Solution by Bill Palmer.
diff --git a/challenge-069/bob-kleemann/README b/challenge-069/bob-kleemann/README
@@ -0,0 +1 @@
+Solution by Bob Kleemann
diff --git a/challenge-069/brtastic/README b/challenge-069/brtastic/README
@@ -0,0 +1 @@
+Solutions by Bartosz Jarzyna.
diff --git a/challenge-069/bruno-ramos/README b/challenge-069/bruno-ramos/README
@@ -0,0 +1 @@
+Solutions by Bruno Ramos.
diff --git a/challenge-069/burkhard-nickels/README b/challenge-069/burkhard-nickels/README
@@ -0,0 +1 @@
+Solutions by Burkhard Nickels.
diff --git a/challenge-069/bwva/README b/challenge-069/bwva/README
@@ -0,0 +1 @@
+Solution(s) by bwva (Bruce Van Allen)
diff --git a/challenge-069/cheok-yin-fung/README b/challenge-069/cheok-yin-fung/README
@@ -0,0 +1 @@
+Solutions by Cheok-Yin Fung.
diff --git a/challenge-069/cliveholloway/README b/challenge-069/cliveholloway/README
@@ -0,0 +1 @@
+Solution by Clive Holloway
diff --git a/challenge-069/colin-crain/README b/challenge-069/colin-crain/README
@@ -0,0 +1 @@
+Solutions by Colin Crain.
diff --git a/challenge-069/craig/README b/challenge-069/craig/README
@@ -0,0 +1 @@
+Solutions by Craig.
diff --git a/challenge-069/creewick/README b/challenge-069/creewick/README
@@ -0,0 +1 @@
+Solutions by Creewick.
diff --git a/challenge-069/cristian-heredia/README b/challenge-069/cristian-heredia/README
@@ -0,0 +1 @@
+Solutions by Cristina Heredia.
diff --git a/challenge-069/daniel-mantovani/README b/challenge-069/daniel-mantovani/README
@@ -0,0 +1 @@
+Solution by Daniel Mantovani
diff --git a/challenge-069/daniel-mita/README b/challenge-069/daniel-mita/README
@@ -0,0 +1 @@
+Solution by Daniel Mita
diff --git a/challenge-069/darren-bottin/README b/challenge-069/darren-bottin/README
@@ -0,0 +1 @@
+Solutions by Darren Bottin.
diff --git a/challenge-069/dave-cross/README b/challenge-069/dave-cross/README
@@ -0,0 +1 @@
+Solution by Dave Cross
diff --git a/challenge-069/dave-jacoby/README b/challenge-069/dave-jacoby/README
@@ -0,0 +1 @@
+Solution by Dave Jacoby
diff --git a/challenge-069/david-kayal/README b/challenge-069/david-kayal/README
@@ -0,0 +1 @@
+Solution by David Kayal
diff --git a/challenge-069/denis-yurashku/README b/challenge-069/denis-yurashku/README
@@ -0,0 +1 @@
+Solutions by Denis Yurashku.
diff --git a/challenge-069/donald-hunter/README b/challenge-069/donald-hunter/README
@@ -0,0 +1 @@
+Solutions by Donald Hunter.
diff --git a/challenge-069/doug-schrag/README b/challenge-069/doug-schrag/README
@@ -0,0 +1 @@
+Solution by Doug Schrag
diff --git a/challenge-069/dracos/README b/challenge-069/dracos/README
@@ -0,0 +1 @@
+Solutions by Matthew Somerville.
diff --git a/challenge-069/duane-powell/README b/challenge-069/duane-powell/README
@@ -0,0 +1 @@
+Solutions by Duane Powell.
diff --git a/challenge-069/duncan-c-white/README b/challenge-069/duncan-c-white/README
@@ -0,0 +1,41 @@
+Task 1: "Number Combinations
+
+You are given two integers $m and $n. Write a script print all possible
+combinations of $n numbers from the list 1 2 3 ... $m.
+
+Every combination should be sorted i.e. [2,3] is a valid combination but
+[3,2] is not.
+
+Example:
+
+Input: $m = 5, $n = 2
+
+Output: [ [1,2], [1,3], [1,4], [1,5], [2,3], [2,4], [2,5], [3,4], [3,5], [4,5] ]
+"
+
+My notes: generally I hate permutation questions, but this looks ok.
+
+
+Task 2: "Letter Phone
+
+You are given a digit string $S. Write a script to print all possible letter combinations that the given digit string could represent.
+
+(1 represents _ or @,
+2 A,B or C,
+3 D,E or F,
+4 G, H or I,
+5 J, K or L,
+6 M, M or O,
+7 P, Q, R or S,
+8 T, U or V,
+9 W, X, Y or Z
+letters from a phone panel)
+
+Example:
+
+  Input: $S = '35'
+
+  Output: ["dj", "dk", "dl", "ej", "ek", "el", "fj", "fk", "fl"].
+
+My notes: sounds pretty easy.  Lookup the set of possibilities for each
+letter, then cross-product them.
diff --git a/challenge-069/e-choroba/README b/challenge-069/e-choroba/README
@@ -0,0 +1 @@
+Solutions by E. Choroba.
diff --git a/challenge-069/eddy-hs/README b/challenge-069/eddy-hs/README
@@ -0,0 +1 @@
+Solution by Eddy HS
diff --git a/challenge-069/fabrizio-poggi/README b/challenge-069/fabrizio-poggi/README
@@ -0,0 +1 @@
+Solutions by Fabrizio Poggi.
diff --git a/challenge-069/feng-chang/README b/challenge-069/feng-chang/README
@@ -0,0 +1 @@
+Solutions by Feng Chang.
diff --git a/challenge-069/finanalyst/README b/challenge-069/finanalyst/README
@@ -0,0 +1 @@
+Solution by Richard Hainsworth, aka finanalyst
diff --git a/challenge-069/finley/README b/challenge-069/finley/README
@@ -0,0 +1 @@
+Solution by Finley
diff --git a/challenge-069/fjwhittle/README b/challenge-069/fjwhittle/README
@@ -0,0 +1 @@
+Solution by Francis Whittle
diff --git a/challenge-069/fred-zinn/README b/challenge-069/fred-zinn/README
@@ -0,0 +1 @@
+Solution by Fred Zinn
diff --git a/challenge-069/freddie-b/README b/challenge-069/freddie-b/README
@@ -0,0 +1 @@
+Solution by Freddie B
diff --git a/challenge-069/giuseppe-terlizzi/README b/challenge-069/giuseppe-terlizzi/README
@@ -0,0 +1 @@
+Solutions by Giuseppe Di Terlizzi.
diff --git a/challenge-069/guillermo-ramos/README b/challenge-069/guillermo-ramos/README
@@ -0,0 +1 @@
+Solution by Guillermo Ramos.
diff --git a/challenge-069/gustavo-chaves/README b/challenge-069/gustavo-chaves/README
@@ -0,0 +1 @@
+Solution by Gustavo Chaves
diff --git a/challenge-069/hauke-d/README b/challenge-069/hauke-d/README
@@ -0,0 +1 @@
+Solutions by Hauke Dämpfling.
diff --git a/challenge-069/ianrifkin/README b/challenge-069/ianrifkin/README
@@ -0,0 +1 @@
+Solution by Ian Rifkin.
diff --git a/challenge-069/izifresh/README b/challenge-069/izifresh/README
@@ -0,0 +1 @@
+Solution by izifresh
diff --git a/challenge-069/jacques-guinnebault/README b/challenge-069/jacques-guinnebault/README
@@ -0,0 +1 @@
+Solution by Jacques Guinnebault.
diff --git a/challenge-069/jaime/README b/challenge-069/jaime/README
@@ -0,0 +1,59 @@
+# Task #1
+
+Write a script to display months from the year 1900 to 2019 where you
+find 5 weekends i.e. 5 Friday, 5 Saturday and 5 Sunday.
+
+## Solution
+
+Months that contain five full weekends have 31 days and start on a Friday. Use `cal` to display March 2019 as an example.
+
+```
+#$ cal -h -m 3 2019 # cal is a UNIX utility
+     March 2019       
+Su Mo Tu We Th Fr Sa  
+                1  2  
+ 3  4  5  6  7  8  9  
+10 11 12 13 14 15 16  
+17 18 19 20 21 22 23  
+24 25 26 27 28 29 30  
+31                    
+```
+
+The solution runs `cal` and displays months that match this unique
+layout.
+
+# Task #2
+
+Write a script that can wrap the given paragraph at a specified column
+using the greedy algorithm.
+
+A simple way to do word wrapping is to use a greedy algorithm that
+puts as many words on a line as possible, then moving on to the next
+line to do the same until there are no more words left to place. This
+method is used by many modern word processors, such as OpenOffice.org
+Writer and Microsoft Word[citation needed]. This algorithm always uses
+the minimum possible number of lines but may lead to lines of widely
+varying lengths. The following pseudocode implements this algorithm:
+
+```
+SpaceLeft := LineWidth
+for each Word in Text
+    if (Width(Word) + SpaceWidth) > SpaceLeft
+        insert line break before Word in Text
+        SpaceLeft := LineWidth - Width(Word)
+    else
+        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)
+```
+
+Where LineWidth is the width of a line, SpaceLeft is the remaining
+width of space on the line to fill, SpaceWidth is the width of a
+single space character, Text is the input text to iterate over and
+Word is a word in this text.
+
+## Solution
+
+The solution follows the recommended pseudocode. Minor improvements
+avoid trailing whitespace.
+
+The script uses `Text::ParseWords::shellwords` from the standard
+library to extract chunks of words from `<STDIN>`.
diff --git a/challenge-069/jaldhar-h-vyas/README b/challenge-069/jaldhar-h-vyas/README
@@ -0,0 +1 @@
+Solution by Jaldhar H. Vyas
diff --git a/challenge-069/james-smith/README.md b/challenge-069/james-smith/README.md
@@ -0,0 +1,129 @@
+Solutions by James Smith.
+
+# Challenge 1 - Counting letters
+
+There are two ways to solve this -> split and count or using tr... one is short code - one is longer - but much faster.
+
+## Version 1 - short code
+
+Uses lc, split and grep to count the elements and put them in a hash... looping through each file a line at a time with <>
+
+```perl
+use feature 'say';
+use strict;
+my %T = map { $_=>0 } foreach 'a'..'z';
+while(<>) {
+  $T{$_}++ foreach grep { /[a-z]/ } split m{}, lc $_;
+}
+
+say "$_: $T{$_}" foreach 'a'..'z';
+```
+
+Running this over 13Mbytes of PHP takes approximately 6.5 seconds...
+
+## Version 2 - faster code
+
+Now counting letters in a string is quickest using the tr or y operator - as this requires the number of characters
+changed. Without using eval you can't unfortunately sub in a variable into the pattern unlike with m/s... So we
+either need to use string eval (which is evIl) or manually replicate the loop - $T{'a'} =~ y/aA/aA/ etc - in this
+code... Note we set $/ to undef so that we slurp the whole file in in one go (to improve performance of using tr)
+and less modifications to the %T hash...
+
+```perl
+use feature 'say';
+$/=undef;
+
+while(<>) {
+  $T{'a'} += y/aA/aA/;
+  $T{'b'} += y/bB/bB/;
+..
+..
+  $T{'y'} += y/yY/yY/;
+  $T{'z'} += y/zZ/zZ/;
+}
+
+say $_,': ',$T{$_}||0 foreach 'a'..'z';
+
+```
+OK - so didn't want to type 26 lines so used this one liner to do it for me!
+
+```bash
+perl -E 'say "  \$t{'"'"'$_'"'"'} += y/$_".uc($_)."/$_".uc($_)."/;" foreach "a".."z";' 
+```
+
+This now runs in approxy 0.25 seconds a big improvement...
+
+## Version 3 - nicer output...
+
+The version 3 code just expands the version 2 code - but creates a "histogram" to show the distribution (and at the same time formats the totals better)
+
+```
+a : 584193 : ##########################
+b : 108267 : ####
+c : 287124 : #############
+d : 272798 : ############
+e : 877936 : ########################################
+f : 209371 : #########
+g : 152944 : ######
+h : 200641 : #########
+i : 546465 : ########################
+j :  15133 :
+k :  50049 : ##
+l : 326976 : ##############
+m : 214631 : #########
+n : 438874 : ###################
+o : 436059 : ###################
+p : 282120 : ############
+q :  19825 :
+r : 551144 : #########################
+s : 552344 : #########################
+t : 724711 : #################################
+u : 260233 : ###########
+v :  68882 : ###
+w :  80759 : ###
+x :  57019 : ##
+y : 115201 : #####
+z :  11021 :
+```
+
+# Challenge 2 - multiplication square...
+
+Again going to extend the challenge to make this generic (in case someone wants a different version)
+
+Hidden in the solution above was getting the number of digits for a number (so we can format the totals) - we do this again to get the size of the left hand column and the main table columns.
+
+```perl
+my $sl = int(log($N)/log(10)+1);     ## Get size of integer $N - defines the width of the LH column
+my $sr = int(2*log($N)/log(10)+1);   ## Get size of $N squared - defines the width of other columns
+```
+and we use this to tweak the formats and the padding/line drawing elements!
+```perl
+#!/usr/bin/perl
+
+use strict;
+use feature 'say';
+
+## This solves more than the puzzle - but thought I would make it more generic!
+
+## This gets the size of the square that we want to display...
+
+my $N  = shift =~ s{\D}{}gr || 11;        ## Default to 11 - but use first parameter as size of square!
+my @R  = 1..$N;                           ## Create a "range array" - we use this 4 times!!!
+
+## Get width of columns for use in the renderer..
+
+my $sl = int( log($N) / log(10) + 1);     ## Get size of integer $N - defines the width of the LH column
+my $sr = int( 2 * log($N) / log(10) + 1); ## Get size of $N squared - defines the width of other columns
+my $fl = sprintf ' %%%dd |', $sl;         ## Create a template for the first column..
+my $fr = sprintf ' %%%dd', $sr;           ## .... and for the other columns!
+
+## Finally we render - make a use of sprintf with the templates and '$' x $ to generate padding
+
+say ' ' x $sl, 'x |',                                               ## Header (LH side)
+    map          { sprintf $fr, $_ }                            @R; ##        (column headers)
+say join '-', '-' x $sl, '-+',                                      ## Separator (LH side)
+    map          { '-' x $sr }                                  @R; ##           (RH side)
+say sprintf( $fl, $a=$_ ),                                          ## Body of table (LH headers)
+    map          { $a>$_ ? ' ' x ($sr+1) : sprintf $fr, $a*$_ } @R  ##               (content of row)
+    foreach                                                     @R;
+```
diff --git a/challenge-069/jaredor/README b/challenge-069/jaredor/README
@@ -0,0 +1 @@
+Solution by Jared Martin
diff --git a/challenge-069/javier-luque/README b/challenge-069/javier-luque/README
@@ -0,0 +1 @@
+Solutions by Javier Luque.
diff --git a/challenge-069/jeff/README b/challenge-069/jeff/README
@@ -0,0 +1 @@
+Solution by Jeff
diff --git a/challenge-069/jeongoon/README b/challenge-069/jeongoon/README
@@ -0,0 +1 @@
+Solution by Myoungjin Jeon
diff --git a/challenge-069/jeremy-carman/README b/challenge-069/jeremy-carman/README
@@ -0,0 +1 @@
+Solution by Jeremy Carman
diff --git a/challenge-069/jim-bacon/README b/challenge-069/jim-bacon/README
@@ -0,0 +1 @@
+Solution by Jim Bacon
diff --git a/challenge-069/jitu-keshwani/README b/challenge-069/jitu-keshwani/README
@@ -0,0 +1 @@
+Solutions by Jitu Keshwani.
diff --git a/challenge-069/jj-merelo/README b/challenge-069/jj-merelo/README
@@ -0,0 +1 @@
+Solution by JJ Merelo
diff --git a/challenge-069/jo-37/README b/challenge-069/jo-37/README
@@ -0,0 +1 @@
+Solution by Jo S.
diff --git a/challenge-069/jo-christian-oterhals/README b/challenge-069/jo-christian-oterhals/README
@@ -0,0 +1 @@
+Solution by Jo Christian Oterhals
diff --git a/challenge-069/joe-tym/README b/challenge-069/joe-tym/README
@@ -0,0 +1 @@
+Solutions by Joe Tym.
diff --git a/challenge-069/joelle-maslak/README b/challenge-069/joelle-maslak/README
@@ -0,0 +1 @@
+Solution by Joelle Maslak
diff --git a/challenge-069/john-barrett/README b/challenge-069/john-barrett/README
@@ -0,0 +1 @@
+Solution by John Barrett
diff --git a/challenge-069/jokraft/README b/challenge-069/jokraft/README
@@ -0,0 +1 @@
+Solution by Jan Ole Kraft.
diff --git a/challenge-069/juan-caballero/README b/challenge-069/juan-caballero/README
@@ -0,0 +1 @@
+Solution by Juan Caballero
diff --git a/challenge-069/julien-fiegehenn/README b/challenge-069/julien-fiegehenn/README
@@ -0,0 +1 @@
+Solutions by Julien Fiegehenn.
diff --git a/challenge-069/kevin-colyer/README b/challenge-069/kevin-colyer/README
@@ -0,0 +1,3 @@
+Solutions by Kevin Colyer.
+
+I think there is some odd bug - my initial tries at rotating the matrix affected the original matrix even when I DIDN'T specify is rw in the sub.
diff --git a/challenge-069/khalid/README b/challenge-069/khalid/README
@@ -0,0 +1 @@
+Solution by Khalid
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		Solution by Andrew Shitov

		Comments to the task 1: https://andrewshitov.com/2020/07/06/raku-challenge-week-68/
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		Solutions by Kevin Colyer.

		I think there is some odd bug - my initial tries at rotating the matrix affected the original matrix even when I DIDN'T specify is rw in the sub.