From e3eba65516c158f90c3a1a77e50daa2e569ed615 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.freedom.nl>
Date: Wed, 9 Feb 2022 17:53:36 +0100
Subject: Week 151: Java solution for part 2

---
 challenge-151/abigail/README.md      |  1 +
 challenge-151/abigail/java/ch-2.java | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 challenge-151/abigail/java/ch-2.java

(limited to 'challenge-151')

diff --git a/challenge-151/abigail/README.md b/challenge-151/abigail/README.md
index 870c6804c1..96d5223161 100644
--- a/challenge-151/abigail/README.md
+++ b/challenge-151/abigail/README.md
@@ -18,6 +18,7 @@
 * [Bash](bash/ch-2.sh)
 * [C](c/ch-2.c)
 * [Go](go/ch-2.go)
+* [Java](java/ch-2.java)
 * [Lua](lua/ch-2.lua)
 * [Node.js](node/ch-2.js)
 * [Pascal](pascal/ch-2.p)
diff --git a/challenge-151/abigail/java/ch-2.java b/challenge-151/abigail/java/ch-2.java
new file mode 100644
index 0000000000..98c27217d7
--- /dev/null
+++ b/challenge-151/abigail/java/ch-2.java
@@ -0,0 +1,30 @@
+//
+// See https://theweeklychallenge.org/blog/perl-weekly-challenge-151
+//
+
+//
+// Run as: ln ch-2.java ch2.java; javac ch2.java; java ch2 < input-file
+//
+
+import java.util.*;
+
+public class ch2 {
+    public static void main (String [] args) {
+        Scanner scanner = new Scanner (System . in);
+        while (scanner . hasNextLine ()) {
+            String line = scanner . nextLine ();
+            Scanner inner_scanner = new Scanner (line);
+            ArrayList <Integer> h = new ArrayList <Integer> ();
+            while (inner_scanner . hasNextInt ()) {
+                h . add (inner_scanner . nextInt ());
+            }
+            h . add (0);
+            h . add (0);
+            for (int i = h . size () - 3; i >= 2; i --) {
+                h . set (i, Math . max (h . get (i) + h . get (i + 2),
+                                        h . get (i + 1)));
+            }
+            System . out . printf ("%d\n", h . get (0) + h . get (2));
+        }
+    }
+}
-- 
cgit 


From 495c230a90bd20dac94816da117ecbb16c2c20e8 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.freedom.nl>
Date: Wed, 9 Feb 2022 18:27:40 +0100
Subject: Week 151: bc solution for part 2

---
 challenge-151/abigail/README.md   |  1 +
 challenge-151/abigail/bc/ch-2.bc  | 37 +++++++++++++++++++++++++++++++++++++
 challenge-151/abigail/t/ctest.ini |  3 +++
 3 files changed, 41 insertions(+)
 create mode 100644 challenge-151/abigail/bc/ch-2.bc

(limited to 'challenge-151')

diff --git a/challenge-151/abigail/README.md b/challenge-151/abigail/README.md
index 96d5223161..0d3e8807d3 100644
--- a/challenge-151/abigail/README.md
+++ b/challenge-151/abigail/README.md
@@ -16,6 +16,7 @@
 
 * [AWK](awk/ch-2.awk)
 * [Bash](bash/ch-2.sh)
+* [bc](bc/ch-2.bc)
 * [C](c/ch-2.c)
 * [Go](go/ch-2.go)
 * [Java](java/ch-2.java)
diff --git a/challenge-151/abigail/bc/ch-2.bc b/challenge-151/abigail/bc/ch-2.bc
new file mode 100644
index 0000000000..d4f479a047
--- /dev/null
+++ b/challenge-151/abigail/bc/ch-2.bc
@@ -0,0 +1,37 @@
+#!/usr/bin/bc
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-151
+#
+
+#
+# Run as: bc ch-2.bc < input-file
+#
+# End each line of input with a 0
+# End input with a -1
+
+while (1) {
+    n = read ()
+    if (n < 0) {
+        break
+    }
+    sz = 0
+    while (n > 0) {
+        h [sz] = n
+        sz = sz + 1
+        n = read ()
+    }
+    h [sz + 0] = 0
+    h [sz + 1] = 0
+    for (i = sz - i; i >= 2; i --) {
+        if (h [i] + h [i + 2] > h [i + 1]) {
+            h [i] = h [i] + h [i + 2]
+        } else {
+            h [i] = h [i + 1]
+        }
+    }
+    h [0] + h [2]
+}
+
+
+halt
diff --git a/challenge-151/abigail/t/ctest.ini b/challenge-151/abigail/t/ctest.ini
index 0a8cb97d18..f2021a0482 100644
--- a/challenge-151/abigail/t/ctest.ini
+++ b/challenge-151/abigail/t/ctest.ini
@@ -7,3 +7,6 @@
 1-1 = Given Examples
 2-1 = Given Examples
 
+[2-1/bc]
+add_to_line = 0
+add_to_input = -1
-- 
cgit 


From 6a4a6ce3bda463a34714c7c707b2caa26d93e571 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.freedom.nl>
Date: Wed, 9 Feb 2022 20:15:55 +0100
Subject: Week 151: Tcl solution for part 2.

---
 challenge-151/abigail/README.md    |  1 +
 challenge-151/abigail/tcl/ch-2.tcl | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 challenge-151/abigail/tcl/ch-2.tcl

(limited to 'challenge-151')

diff --git a/challenge-151/abigail/README.md b/challenge-151/abigail/README.md
index 0d3e8807d3..7c068e4d4a 100644
--- a/challenge-151/abigail/README.md
+++ b/challenge-151/abigail/README.md
@@ -27,3 +27,4 @@
 * [Python](python/ch-2.py)
 * [R](r/ch-2.r)
 * [Ruby](ruby/ch-2.rb)
+* [Tcl](tcl/ch-2.tcl)
diff --git a/challenge-151/abigail/tcl/ch-2.tcl b/challenge-151/abigail/tcl/ch-2.tcl
new file mode 100644
index 0000000000..591ac69870
--- /dev/null
+++ b/challenge-151/abigail/tcl/ch-2.tcl
@@ -0,0 +1,20 @@
+#!/usr/local/opt/tcl-tk/bin/tclsh
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-151
+#
+
+#
+# Run as: tclsh ch-2.tcl < input-file
+#
+
+while {[gets stdin line] >= 0} {
+    set h [split $line " "] 
+    lappend h 0 0
+    for {set i [expr [llength $h] - 3]} {$i >= 2} {incr i -1} {
+        set v1 [expr [lindex $h $i] + [lindex $h [expr $i + 2]]]
+        set v2 [lindex $h [expr $i + 1]]
+        lset h $i [expr $v1 < $v2 ? $v2 : $v1]
+    }
+    puts [expr [lindex $h 0] + [lindex $h 2]]
+}
-- 
cgit