From 371f794d7b70e75d56a1a98a405b39b00df9aaea Mon Sep 17 00:00:00 2001 From: Laurent Mazet Date: Tue, 21 Nov 2023 12:26:44 +0100 Subject: [PATCH] add a test on Birthday's problema --- calc.c | 3 +++ 1 file changed, 3 insertions(+) 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: */ -- 2.30.2