(*пример использования рекурсии для построения функции подсчета элементов в списке*) let rec cnt xs acc = match xs with | [] -> acc | h :: t -> cnt t acc + 1 let count xs = cnt xs 0 let args = [ 1 ; 2 ; 3 ; 4 ; 5 ; 6 ] assert ( args . Length = count args )
t.me/perfect0sight