Сложности с Ocaml. Списки

Question

Я написал эту функцию, которая должна была дать мне предыдущий последний элемент списка, но она не работает? Ты знаешь почему? спасибо!

let rec exo1= match l with |List.length l = 0 or 1 -> failwith exo1 |List.length l > 2 -> List.tl l in exo1 l |List.length l = 2 -> List.hd l ;;

Answer 1

Попробуйте что-то вроде ниже .. Я закомментировал ответ.

let rec exo1 lst =
match lst with
| [] -> failwith "List is too short!"
(*| (*the magic happens here*) -> (*ans*)*)
| hd::tl -> exo1 tl