[usth/ICT2.1] Algorithm and Data Structures

1 files changed, 14 insertions, 0 deletions

diff --git a/usth/ICT2.1/labwork/4/construct.h b/usth/ICT2.1/labwork/4/construct.h
new file mode 100644
index 0000000..35d2448
--- /dev/null
+++ b/usth/ICT2.1/labwork/4/construct.h
@@ -0,0 +1,14 @@
+/*
+ * Lisp construct header.
+ * This is free and unencumbered software released into the public domain.
+ */
+
+typedef struct list construct;
+struct list {
+	void *car;
+        construct *cdr;
+};
+
+construct *cons(void *, construct *);
+void *car(construct *);
+construct *cdr(construct *);