Linked list example

tiger-linked-list.tig

@@ -0,0 +1,30 @@
+let
+    type int_node = { val: int, next: int_node }
+    type int_list = { first: int_node }
+
+    function list_new (): int_list =
+      int_list { first = nil }
+
+    function list_add (list: int_list, new_int: int) =
+      list.first := int_node { val  = new_int
+                             , next = list.first }
+
+    function list_sum (list: int_list) : int =
+      let function sum_help (node: int_node): int =
+            if node <> nil
+            then node.val + sum_help(node.next)
+            else 0
+      in sum_help(list.first)
+      end
+
+    var integers := list_new()
+in
+    list_add(integers, 1);
+    list_add(integers, 4);
+    list_add(integers, 1);
+    list_add(integers, 2);
+    list_add(integers, 1);
+    for i := 1 to list_sum(integers) do
+        print(concat(chr(i + 48), ". line of text\n"));
+    print("The 10th and last line of text!")
+end