Merge pull request #5041 from Abigail/abigail/week-134

Abigail/week 134

9 files changed, 30 insertions, 17 deletions

diff --git a/challenge-134/abigail/README.md b/challenge-134/abigail/README.md
index 7cb7880ca3..701b285f17 100644
--- a/challenge-134/abigail/README.md
+++ b/challenge-134/abigail/README.md
@@ -8,6 +8,7 @@
 * [bc](bc/ch-1.bc)
 * [Befunge-93](befunge-93/ch-1.bf93)
 * [C](c/ch-1.c)
+* [csh](csh/ch-1.csh)
 * [Erlang](erlang/ch-1.erl)
 * [Go](go/ch-1.go)
 * [Java](java/ch-1.java)
diff --git a/challenge-134/abigail/awk/ch-1.awk b/challenge-134/abigail/awk/ch-1.awk
index e1bb7f9695..c06de2cd30 100644
--- a/challenge-134/abigail/awk/ch-1.awk
+++ b/challenge-134/abigail/awk/ch-1.awk
@@ -9,8 +9,8 @@
 #
 
 BEGIN {
-    split ("789 798 879 897 978", a, " ")
-    for (i = 1; i <= 5; i ++) {
-        print "1023456" a [i]
+    n = split ("789 798 879 897 978", tails, " ")
+    for (i = 1; i <= n; i ++) {
+        print "1023456" tails [i]
     }
 }
diff --git a/challenge-134/abigail/blog.txt b/challenge-134/abigail/blog.txt
new file mode 100644
index 0000000000..a95e96dfdc
--- /dev/null
+++ b/challenge-134/abigail/blog.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-134-1.html
diff --git a/challenge-134/abigail/blog1.txt b/challenge-134/abigail/blog1.txt
new file mode 100644
index 0000000000..fa9143f8b9
--- /dev/null
+++ b/challenge-134/abigail/blog1.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-134-2.html
diff --git a/challenge-134/abigail/csh/ch-1.csh b/challenge-134/abigail/csh/ch-1.csh
new file mode 100644
index 0000000000..0f32f0558c
--- /dev/null
+++ b/challenge-134/abigail/csh/ch-1.csh
@@ -0,0 +1,13 @@
+#!/bin/csh
+
+#
+# See ../README.md
+#
+
+#
+# Run as: csh ch-1.csh
+#
+
+foreach i (789 798 879 897 978)
+    echo 1023456$i
+end
diff --git a/challenge-134/abigail/erlang/ch-1.erl b/challenge-134/abigail/erlang/ch-1.erl
index 0ce5451fb5..504adcfd20 100644
--- a/challenge-134/abigail/erlang/ch-1.erl
+++ b/challenge-134/abigail/erlang/ch-1.erl
@@ -11,12 +11,12 @@
 -module (ch1).
 -export ([main/0]).
 
-func ([])    -> ok;
-func ([H|T]) ->
-    io:fwrite ("1023456~w~n", [H]),
-    func (T).
+pandigital ([])            -> ok;
+pandigital ([Head | List]) ->
+    io:fwrite ("1023456~w~n", [Head]),
+    pandigital (List).
     
 
 main () ->
-    func ([789, 798, 879, 897, 978]).
+    pandigital ([789, 798, 879, 897, 978]).
 
diff --git a/challenge-134/abigail/lua/ch-2.lua b/challenge-134/abigail/lua/ch-2.lua
index 4ea5926b60..17953dc24f 100644
--- a/challenge-134/abigail/lua/ch-2.lua
+++ b/challenge-134/abigail/lua/ch-2.lua
@@ -12,10 +12,10 @@ for line in io . lines () do
     local _, _, m, n = line : find ("([0-9]+)%s+([0-9]+)")
     local seen = {}
     local count = 0
-    for x = 1, m do
-        for y = 1, n do
-            if seen [x * y] == nil then
-                seen [x * y] = 1
+    for i = 1, m do
+        for j = 1, n do
+            if seen [i * j] == nil then
+                seen [i * j] = 1
                 count = count + 1
             end
         end
diff --git a/challenge-134/abigail/r/ch-1.r b/challenge-134/abigail/r/ch-1.r
index e58f54cbfd..e85732d31f 100644
--- a/challenge-134/abigail/r/ch-1.r
+++ b/challenge-134/abigail/r/ch-1.r
@@ -6,6 +6,4 @@
 # Run as: Rscript ch-1.r
 #
 
-t <- c (789, 798, 879, 897, 978)
-t <- t + 1023456000
-cat (t, sep = "\n")
+cat (c (789, 798, 879, 897, 978) + 1023456000, sep = "\n")
diff --git a/challenge-134/abigail/tcl/ch-2.tcl b/challenge-134/abigail/tcl/ch-2.tcl
index 534913afcd..1b09d5d2eb 100644
--- a/challenge-134/abigail/tcl/ch-2.tcl
+++ b/challenge-134/abigail/tcl/ch-2.tcl
@@ -11,8 +11,7 @@ while {[gets stdin line] >= 0} {
     array set seen { }
     for {set i 1} {$i <= $n} {incr i} {
         for {set j 1} {$j <= $m} {incr j} {
-            set p [expr $i * $j]
-            set seen($p) 1
+            set seen([expr $i * $j]) 1
         }
     }
     puts [array size seen]