Kod: Zaznacz cały
let rec length list= match list with
| [] -> 0;
| _::tail -> 1 + length tail;;
Próbowałem jeszcze tak
Kod: Zaznacz cały
let rec w lista length = match lista with
| [] -> 0
|a::b -> w b length+1;;
let length a = w a 0;;