summaryrefslogtreecommitdiff
path: root/test/fold.lisp
blob: 89031d03aed144ca20d910ca1e1ff1825b7037e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
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)))