Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let enqueue((p,e),s) =
- if (snd s.l>0 && p<(fst (List.hd (fst s.l)))) s.l <- (((p,e) :: fst s.l),(snd s.1)-1)
- else if(snd s.l>0) List.hd (fst s.l))::(enqueue ((p,e),(List.tl (fst s.l))))
- else raise (Empty "nie ma miejsca w liscie")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement