From da1a49bad802cb88d15b04f26a8556726b53d221 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Tue, 26 Oct 2021 14:04:23 +0200
Subject: bc solutions for week 136

---
 challenge-136/abigail/README.md   |  2 ++
 challenge-136/abigail/bc/ch-1.bc  | 30 ++++++++++++++++++++++++++++++
 challenge-136/abigail/bc/ch-2.bc  | 21 +++++++++++++++++++++
 challenge-136/abigail/t/ctest.ini |  3 +++
 4 files changed, 56 insertions(+)
 create mode 100644 challenge-136/abigail/bc/ch-1.bc
 create mode 100644 challenge-136/abigail/bc/ch-2.bc

diff --git a/challenge-136/abigail/README.md b/challenge-136/abigail/README.md
index c990c62f96..ecd34dfa17 100644
--- a/challenge-136/abigail/README.md
+++ b/challenge-136/abigail/README.md
@@ -4,6 +4,7 @@
 
 * [GNU AWK](awk/ch-1.gawk)
 * [Bash](bash/ch-1.sh)
+* [Bc](bc/ch-1.bc)
 * [C](c/ch-1.c)
 * [Go](go/ch-1.go)
 * [Lua](lua/ch-1.lua)
@@ -17,6 +18,7 @@
 ## Part 2
 
 * [AWK](awk/ch-2.awk)
+* [Bc](bc/ch-2.bc)
 * [C](c/ch-2.c)
 * [Go](go/ch-2.go)
 * [Lua](lua/ch-2.lua)
diff --git a/challenge-136/abigail/bc/ch-1.bc b/challenge-136/abigail/bc/ch-1.bc
new file mode 100644
index 0000000000..8f9f92486b
--- /dev/null
+++ b/challenge-136/abigail/bc/ch-1.bc
@@ -0,0 +1,30 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: bc ch-1.bc < input-file
+#
+# Terminate input with a 0
+#
+
+define g (a, b) {
+    if (b > a) {return g (b, a)} 
+    if (b > 0) {return g (b, a % b)} 
+                return a 
+}
+
+define p (n) {
+    if (n < 1) {return 0}
+    while (n % 2 == 0) n = n / 2
+    return n == 1
+}
+
+while (1) {
+    n = read (); if (n == 0) {break}
+    m = read (); if (m == 0) {break}
+    r = g (n, m)
+    r > 1 && p (r)
+}
+
+quit
diff --git a/challenge-136/abigail/bc/ch-2.bc b/challenge-136/abigail/bc/ch-2.bc
new file mode 100644
index 0000000000..060a779f3c
--- /dev/null
+++ b/challenge-136/abigail/bc/ch-2.bc
@@ -0,0 +1,21 @@
+#
+# See ../README.md
+#
+
+#
+# Run as: bc ch-2.bc < input-file
+#
+
+define d (t, f, p) {
+    if (t <  f) {return 0}
+    if (t == f) {return 1}
+    return d (t - f, f + p, f) + d (t, f + p, f)
+}
+define c (t) {
+    return d (t, 1, 1)
+}
+
+while (1) {
+    n = read (); if (n == 0) {break}
+    c (n)
+}
diff --git a/challenge-136/abigail/t/ctest.ini b/challenge-136/abigail/t/ctest.ini
index 527781acbb..faa58e9882 100644
--- a/challenge-136/abigail/t/ctest.ini
+++ b/challenge-136/abigail/t/ctest.ini
@@ -6,3 +6,6 @@
 [names]
 1-1 = Given Examples
 2-1 = Given Examples
+
+[languages/bc]
+add_to_input = 0
-- 
cgit