let rec my_fold_left f a l =
match l with
| [] -> a
| h :: t -> my_fold_left f (f a h) t
f함수를 리스트에 쭈욱 적용해서 마지막 결과 반환 f는 인자 2개 필요하고 결과는 다음 적용의 첫 인자가 됨
f함수를 리스트에 쭈욱 적용해서 마지막 결과 반환 f는 인자 2개 필요하고 결과는 다음 적용의 첫 인자가 됨