From 055bd8d02ed6f9e97369fa1f77d918ea255dcb99 Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Tue, 1 Oct 2024 09:47:25 +0200 Subject: Add test for natural numbers addition --- rust/sample/test03/input | 12 ++++++++++++ rust/sample/test03/output | 9 +++++++++ 2 files changed, 21 insertions(+) create mode 100644 rust/sample/test03/input create mode 100644 rust/sample/test03/output (limited to 'rust') diff --git a/rust/sample/test03/input b/rust/sample/test03/input new file mode 100644 index 0000000..a23f8c6 --- /dev/null +++ b/rust/sample/test03/input @@ -0,0 +1,12 @@ +(def zero (lam (f s) s)) +(def succ (lam (n f s) (f (n f s)))) + +(def one (succ zero)) +(def two (succ one)) +(def three (succ two)) +(def four (succ three)) +(def five (succ four)) + +(def plus (lam (a b) (a succ b))) + +(plus one three) diff --git a/rust/sample/test03/output b/rust/sample/test03/output new file mode 100644 index 0000000..578d298 --- /dev/null +++ b/rust/sample/test03/output @@ -0,0 +1,9 @@ +true +true +true +true +true +true +true +true +five -- cgit v1.2.3