Merge remote-tracking branch 'upstream/master'

2 files changed, 122 insertions, 0 deletions

diff --git a/challenge-004/abigail/lua/ch-1.lua b/challenge-004/abigail/lua/ch-1.lua
new file mode 100644
index 0000000000..03a06fd74b
--- /dev/null
+++ b/challenge-004/abigail/lua/ch-1.lua
@@ -0,0 +1,71 @@
+#!/opt/local/bin/lua
+
+--
+-- See ../README.md
+--
+
+--
+-- Run as: lua ch-1.lua
+--
+
+local pi = "%(uP7+Y`ME)gy(7')v?;%s^qc(Mj1}16idp'ONGs'2m.o,1HLY'}~P61@@Y-" ..
+           "*O/.v,Jc~D+ttA'&EPjR(zXxD$dr,M$P=-f*YQqe,GIZ`0x5oL1(mpl17en`" ..
+           ")Q$ge,L6_5.I;hj%yy6n,L_t')dtyy)[ugS&-3(c&lC:a&~8SP#+iis+WR&8" ..
+           "*Y;V3/+JD@-J>7u0$Nh<#2&:@+#=`/*YtP-0t8uf+tf/V&yjx>+]S=&%d}7z" ..
+           "0YXa9$SOyt$*mzv1&X(W(.{0G-Vya`0a}KI0pQD2,nV0:,WE0+#?F[>(iMb}" ..
+           "%k(tB/UO0m.8R'x%Vys_-|IgL.y-n6(v[*#+<w,K&ph2o.LfLw.'YJB%SI/r" ..
+           "-RGB[0/yKw);ml1+SlKv.UDG6&jY3_#=Nry$t6Ng/YXEe%A)of.>/-J1#[`]" ..
+           "&*M<M1Uqt]#f=#g-a$q{$Gn<,#CLb7((C*0,D]yd&c4OS#Ql2h%gd7>#'1wg" ..
+           "-}+B}*jWDi)/2&k,h|/)+eu-3)9{mU-`:]M/YF$a.O0SF0{~2C.EjkZ&>|lD" ..
+           "#%UmL+w)$V&14Ty0arq+%xnAo/XX/y0_=Bl/)f*}'Gc88'GV;X1RG~<+gJ8p" ..
+           "&^E~A'/3N=*R2|j&SgD@-0St?*jL@'-ZsbD$+_hy.#HkF0cO_[#t0wL-8._r" ..
+           "#0)@p#4(ha+lyD6,[|1w%_K//+c2#j.4xl2)SpX=.>)gp$R)ZP,IS%@,}%#J" ..
+           "*1zj[,sIw#%6pwl%D'fk#Bx6'%4?.0&c9'?#R7P|&ZJ;M&q6q&&|h9?0LVI}" ..
+           "(2lq>#/G+<,Bv`l+U'K?'2i}q+,J8W/7dU++X(l51R>#T&)fV0'I%FC%HHkt" ..
+           "%{(NN&Kn$]*<Aur/2kmb+:Wu&)7%WR/W[BH)+.]`/~B$S.WE~n,J_v]%-h'|" ..
+           "%RrIs.:wg4)KQ#G*~I)7%=m]x$z.?F/F:I#*]Lg2(h&,J*}tu6/WWEX+>e0," ..
+           "$K`U.%bSL*&dG^f,lN@.+jGbU.g8,s&FwUP$9p3S/)f(4,y><Y0vnKH(:}m~" ..
+           "#y7eZ%~4^<1C|Ju$sQ)x0ko[G1)z8e&)U,+'N'y9,)LJT0k+B7-H5gh0z,~X" ..
+           "0E:/(.0dlN1&/Rn/[|SL1RLl=)|BoK$K~@E$0j%D)oW$^+bQyn.~]>{*/L)t" ..
+           "-Oi$Y*&I1x1Kyk#$}~i|)^4uG%|&sU)XNR-,PLl/.lmT'&_~it-16U9-B~A[" ..
+           "(}s.a0~]Zj*<*~%-~N27%$O,*/a,,c%<#@60On3z0~3@B13UOG/A^&K,GRHi" ..
+           ",S_:*&9I{_$nCM9&U^*9)WmPj+$TL8.]WpP)CWDR$u#7])K/Bi+,[B9(0~a&" ..
+           "&=aag,L-UG#HoAx/=@p,&ux{:0($3X*[J<4,eh{E1F&tE$cGo.&C}15*:u{Z" ..
+           ",:*H^'f,=~$,z%B)WZbL$DjA;/oFKa%.>ig/^o.90e/P=*Auex0TD}p/hncA" ..
+           "/%d87#/u19,r&sM(A+4V0%4u$.}F+P0o|4e.g(<[#5y<J++`sn,C6]p-t;&]" ..
+           "*wEcH.YA#C.|Tl$(2g>y*]3@5%II741/XZ>)Lm6e0``3L%.JF[+Z?8b(tj7C" ..
+           "'S/z}#vS|i)S9[=*/nCG)PMaY-{pML);vN?%kRcr#*.Tg,x;42'(1w.0dA)S" ..
+           ")-us%.#1$R-rkwf%m%B-(ctK8+4Sn^%*C1Y-wqsr%eNg11%$De&&07q+%1>-" ..
+           "+mCl2%)V#w%#y:[,?t*D$64`9.U+{`-SBX-+gi/o)0B$q#V$tW+#lmM)';EH" ..
+           "%yFPZ/Gy(~,dl@h)A&ju-Co2,-du++)[Awk&wE}p*H;._.[]4W+Eb7K#iiKB";
+
+local in_size  = 5
+local out_size = 9
+local first_ord = string . byte ("#")
+local skip_ord  = string . byte ("\\")
+local last_ord  = string . byte ("~")
+local range     = last_ord - first_ord
+local format    = string . format ("%%0%dd", out_size)
+
+io . write ("3.")
+for i = 1, pi : len (), in_size do
+    local out = 0
+    for j = i, i + 4, 1 do
+        out = out * range
+        local n = pi : byte (j, j)
+        if   n >= skip_ord
+        then n = n - 1
+        end
+        out = out + n - first_ord
+    end
+    io . write (string . format (format, out))
+end
+io . write ("\n")
+
+
+--
+-- FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER
+-- FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER
+-- FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER
+-- FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER FODDER!
+--
diff --git a/challenge-004/abigail/lua/ch-2.lua b/challenge-004/abigail/lua/ch-2.lua
new file mode 100644
index 0000000000..c1214ac67d
--- /dev/null
+++ b/challenge-004/abigail/lua/ch-2.lua
@@ -0,0 +1,51 @@
+#!/opt/local/bin/lua
+
+--
+-- See ../README.md
+--
+
+--
+-- Run as: lua ch-2.lua -f FILE < input-file
+--
+
+--
+-- Parse option, and exit if incorrect
+--
+
+local filename = ""
+if   #arg == 2 and arg [1] == "-f"
+then filename = arg [2]
+end
+
+if   file == ""
+then io . stderr : write ("Requires a '-f FILE' option\n")
+     os . exit (1)
+     end
+
+--
+-- Given a file name, and a set of letters, print
+-- the words from the file which can be made with the letters.
+--
+function extract_words (filename, letters)
+    for word in io . lines (filename) do
+        copy = word : gsub ("\n", "") : lower ()
+        for i = 1, letters : len () do
+            --
+            -- Remove each of the characters of 'letters' from
+            -- 'copy', after lowercasing, and only once.
+            --
+            copy = copy : gsub (letters : sub (i, i) : lower (), "", 1)
+        end
+        --
+        -- If we end up with the empty string, we have a winner.
+        --
+        if (copy : len () == 0)
+        then
+            print (word)
+        end
+    end
+end
+
+for line in io . lines () do
+    extract_words (filename, line : gsub ("\n", ""))
+end