Простой код:
let myprod [] = 1
let myprod (x:xs) = x * myprod xs
myprod [1,2,3]
*** Exception: <interactive>:4:5-33: Non-exhaustive patterns in function myprod
Если просто скомпилировать, то все ок. Подскажите что я пропустил?
Простой код:
let myprod [] = 1
let myprod (x:xs) = x * myprod xs
myprod [1,2,3]
*** Exception: <interactive>:4:5-33: Non-exhaustive patterns in function myprod
Если просто скомпилировать, то все ок. Подскажите что я пропустил?