summaryrefslogtreecommitdiff
path: root/files/practicum/StdStack.icl
diff options
context:
space:
mode:
Diffstat (limited to 'files/practicum/StdStack.icl')
-rw-r--r--files/practicum/StdStack.icl24
1 files changed, 0 insertions, 24 deletions
diff --git a/files/practicum/StdStack.icl b/files/practicum/StdStack.icl
deleted file mode 100644
index 4b3a1f8..0000000
--- a/files/practicum/StdStack.icl
+++ /dev/null
@@ -1,24 +0,0 @@
-implementation module StdStack
-
-import StdEnv
-
-:: Stack a = ... // maak deze type definitie af (mag ook een synoniem type zijn, maar gebruik dan :== in plaats van =)
-
-Start = ( "s0 = newStack = ", s0,'\n'
- , "s1 = push 1 s0 = ", s1,'\n'
- , "s2 = pushes [2..5] s1 = ",s2,'\n'
- , "s3 = pop s2 = ", s3,'\n'
- , "s4 = popn 3 s3 = ", s4,'\n'
- , "s5 = top s4 = ", s5,'\n'
- , "s6 = topn 3 s2 = ", s6,'\n'
- , "s7 = elements s2 = ", s7,'\n'
- )
-where
- s0 = newStack
- s1 = push 1 s0
- s2 = pushes [2..5] s1
- s3 = pop s2
- s4 = popn 3 s3
- s5 = top s4
- s6 = topn 3 s2
- s7 = elements s2