17 lines
438 B
OCaml
Executable File
17 lines
438 B
OCaml
Executable File
open General
|
|
|
|
open List
|
|
|
|
let enqueue (a : 'a) (qu : 'a queue) : 'a queue =
|
|
match qu.front with
|
|
| [] -> { front = [a]; back = [] }
|
|
| _ -> { qu with back = a :: qu.back }
|
|
|
|
let dequeue (qu : 'a queue) : ('a option * 'a queue) =
|
|
match qu.front with
|
|
| [a] -> (Some a, { front = List.reverse qu.back; back = [] })
|
|
| h :: t -> (Some h, { qu with front = t })
|
|
| [] -> (None, qu)
|
|
|
|
let empty = { front = []; back = [] }
|