From db58f43065c3b397754bb9efcb4a7376b2538131 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 23 Oct 2026 20:47:43 -0400 Subject: pit: Add tests, fix binding bug --- pit/examples/fold.pit | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 pit/examples/fold.pit (limited to 'pit/examples/fold.pit') diff --git a/pit/examples/fold.pit b/pit/examples/fold.pit new file mode 100644 index 0000000..89031d0 --- /dev/null +++ b/pit/examples/fold.pit @@ -0,0 +1,12 @@ +(defun! foo (x) + (+ x 1)) +(print! (foo 1)) +(print! (funcall 'foo 1)) +(print! (list/map 'foo '(1 2 3))) +(print! (list/foldl '+ 0 '(1 2 3))) +(print! (list/take 2 '(1 2 3))) +(print! (list/take 0 '(1 2 3))) +(print! (list/take 100 '(1 2 3))) +(print! (list/drop 2 '(1 2 3))) +(print! (list/drop 10 '(1 2 3))) +(print! (list/filter 'integer? '(1 foo 2 bar baz 3 quux))) -- cgit v1.3.1