tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Queue-Definition/Standard-ML/queue-definition-2.ml
+++ b/Task/Queue-Definition/Standard-ML/queue-definition-2.ml
@ -0,0 +1,16 @@
+structure Queue:> QUEUE =
+struct
+  type 'a queue = 'a list
+
+  val empty_queue = nil
+
+  exception Empty
+
+  fun enq q x = q @ [x]
+
+  fun deq nil = raise Empty
+  |   deq (x::q) = (x, q)
+
+  fun empty nil = true
+  |   empty _ = false
+end;