about summary refs log tree commit diff stats
path: root/awk/scheme/scheme/test/integration/list_operations.scm
diff options
context:
space:
mode:
Diffstat (limited to 'awk/scheme/scheme/test/integration/list_operations.scm')
-rw-r--r--awk/scheme/scheme/test/integration/list_operations.scm10
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