diff options
Diffstat (limited to 'awk/scheme/scheme/test/integration/list_operations.scm')
-rw-r--r-- | awk/scheme/scheme/test/integration/list_operations.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/awk/scheme/scheme/test/integration/list_operations.scm b/awk/scheme/scheme/test/integration/list_operations.scm new file mode 100644 index 0000000..3a82919 --- /dev/null +++ b/awk/scheme/scheme/test/integration/list_operations.scm @@ -0,0 +1,10 @@ +; List operations and function definitions + +(define make-list (x y z) (cons x (cons y (cons z nil)))) +(define first (lst) (car lst)) +(define second (lst) (car (cdr lst))) +(define third (lst) (car (cdr (cdr lst)))) +(define my-list (make-list 1 2 3)) +(first my-list) +(second my-list) +(third my-list) \ No newline at end of file |