From: Laurent Mazet <laurent.mazet@thalesgroup.com>
Date: Tue, 21 Nov 2023 11:26:44 +0000 (+0100)
Subject: add a test on Birthday's problema
X-Git-Tag: v1.3~11
X-Git-Url: https://secure.softndesign.org/git/?a=commitdiff_plain;h=371f794d7b70e75d56a1a98a405b39b00df9aaea;p=calc.git

add a test on Birthday's problema
---

diff --git a/calc.c b/calc.c
index 98ca963..b2b3fbf 100644
--- a/calc.c
+++ b/calc.c
@@ -416,4 +416,7 @@ int main (int argc, char *argv[])
 // Factorial sequence
 // test: echo -e 'prog (1, cond (arg (1) > 1, arg (1) * call (1, arg (1) - 1), 1))\ncall (1, 10)' | calc.exe | grep -q '=> 3.6288e+06'
 
+// Birthday problem
+// test: echo -e '{sto (1, 365), sto (2, 0), sto (10, 1), while (inc (2) < 50, {sto (10, rcl (10) * (rcl (1) - rcl (2)) / rcl (1)), print (rcl (2) + 1), print ((1 - rcl (10)) * 100)})};' | calc.exe | grep -q '=> 97.0374'
+
 /* vim: set ts=4 sw=4 et: */