From e8a5b616d4d29941e1fef073831482bf2d85f96c Mon Sep 17 00:00:00 2001 From: Laurent Mazet Date: Fri, 27 Jan 2023 07:39:23 +0100 Subject: [PATCH] gold number sequence --- calc.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/calc.c b/calc.c index 8081c80..771f7f0 100644 --- a/calc.c +++ b/calc.c @@ -339,6 +339,9 @@ int main (int argc, char *argv[]) // test: echo -e '{sto (1, 0), sto (10, 0), while (inc (10) < 100, {sto (1, rcl (1) + rcl (10)), print (rcl (1))})}' | calc.exe | grep -q '=> 5050' // Fibonacci sequence -// test: echo -e '{sto (1, 1), sto (2, 1), sto (10, 1), while (inc (10) < 12 - 1, {sto (3, rcl (1) + rcl (2)), sto (1, rcl (2)), print (sto (2, rcl (3)))})}' | calc.exe | grep '=> 144' +// test: echo -e '{sto (1, 1), sto (2, 1), sto (10, 1), while (inc (10) < 12 - 1, {sto (3, rcl (1) + rcl (2)), sto (1, rcl (2)), print (sto (2, rcl (3)))})}' | calc.exe | grep -q '=> 144' + +// Gold number +// test: echo -e '{sto (1, 1), sto (2, 1), sto (10, 1), while (inc (10) < 15 - 1, {sto (3, rcl (1) + rcl (2)), sto (1, rcl (2)), print (sto (2, rcl (3)) / rcl (1))})}' | calc.exe | grep -q '=> 1.61803' /* vim: set ts=4 sw=4 et: */ -- 2.30.2