1
0
mirror of https://github.com/janet-lang/janet synced 2025-01-09 15:10:27 +00:00

Add test case.

This commit is contained in:
Calvin Rose 2024-05-04 16:14:26 -05:00
parent 369f96b80e
commit f2d25a0da2

View File

@ -976,4 +976,16 @@
(assert (= () '() (macex '())) "macex ()")
(assert (= '[] (macex '[])) "macex []")
# Knuth man or boy test
(var a nil)
(defn man-or-boy [x] (a x |1 |-1 |-1 |1 |0))
(varfn a [k x1 x2 x3 x4 x5]
(var k k)
(defn b [] (-- k) (a k b x1 x2 x3 x4))
(if (<= k 0)
(+ (x4) (x5))
(b)))
(assert (= -2 (man-or-boy 2)))
(assert (= -67 (man-or-boy 10)))
(end-suite)