Минимизация операций cons
Ссылка на видеоразбор
Код из книги
#let rev =
let rec reverse acc =
fun [] -> acc
| (h::t) -> reverse (h::acc) t in
reverse [];;
#let rev =
let rec reverse acc =
fun [] -> acc
| (h::t) -> reverse (h::acc) t in
reverse [];;