тупо реализовать очередь
решение что пришло в голову первым (из стек оверфлоу):
type 'a queue = NL | Que of 'a * 'a queue
let rec enque m q =
match q with
| NL -> Que(m, NL)
| Que (x, xs) -> Que(x, enque m xs)
let peek q =
match q with
| Que(x, xs) -> x
let deque q =
match q with
| Que(_,xs) -> xs
| NL -> NL
половина тестов падает с таймаутом. Is it a known issue?
потому что твоя очередь говно, уж извини)))
Обсуждают сегодня