Add list manipulation primitives

1 files changed, 24 insertions, 0 deletions

diff --git a/examples/lists.bdl b/examples/lists.bdl
new file mode 100644
index 0000000..4a27005
--- /dev/null
+++ b/examples/lists.bdl
@@ -0,0 +1,24 @@
+;;
+;; List operations.
+;;
+
+;; List function.
+(print "(list) -> ") (list)
+(print "(list 1) -> ") (list 1)
+(print "(list 1 2) -> ") (list 1 2)
+(print "(list 1 2 3) -> ") (list 1 2 3)
+(print "(list 4 5 (+ 1 2 3)) -> ") (list 4 5 (+ 1 2 3))
+
+;; Car/cdr.
+(print "(car (list 1 2 3)) -> ") (car (list 1 2 3))
+(print "(cdr (list 1 2 3)) -> ") (cdr (list 1 2 3))
+(print "(car (list (* 10 20) (+ 1 2 3) 50 60)) -> ") (car (list (* 10 20) (+ 1 2 3) 50 60))
+(print "(cdr (list (* 10 20) (+ 1 2 3) 50 60)) -> ") (cdr (list (* 10 20) (+ 1 2 3) 50 60))
+(print "(car (cdr (list (* 10 20) (+ 1 2 3) 50 60))) -> ") (car (cdr (list (* 10 20) (+ 1 2 3) 50 60)))
+
+;; Pairs construction.
+(print "(cons 1 2) -> ") (cons 1 2)
+(print "(cons \"a\" \"b\") -> ") (cons "a" "b")
+(print "(cons \"a\" (cons \"c\" ())) -> ") (cons "a" (cons "c" ()))
+(print "(cons 1 (cons 2 (cons (+ 1 2) ()))) -> ") (cons 1 (cons 2 (cons (+ 1 2) ())))
+(print "(cons 1 (cons 2 (cons (+ 1 2) 4))) -> ") (cons 1 (cons 2 (cons (+ 1 2) 4)))