certamente, era però come esempio di sintassi di Ocaml visto che non utilizzo il linguaggio
certamente, era però come esempio di sintassi di Ocaml visto che non utilizzo il linguaggio
devo imparare quel linguaggio e mi servirebbe qualche esempio da cui partire
Se proprio ci tieni eccoMa non pensare che ti sarà di qualche utilità...codice:let rec sums' ((s::_) as ss) xs = match xs with | [x] -> (s+x) :: List.rev ss | (x::xs) -> sums' ((s+x)::ss) xs let sums (x::xs) = sums' [x] xs (* supporto per la visualizzazione e il testing *) let (@.) f g x = f (g x) let print_int_list = print_endline @. String.concat " " @. List.map string_of_int let () = print_int_list (sums [1;2;3;4;5])
Ultima modifica di Scara95; 20-01-2014 a 15:28
"Quid enim est, quod contra vim sine vi fieri possit?" - Cicerone, Ad Familiares
grazie,
con ricorsione di coda
È tail recursive, ed in ogni caso se ti serve qualcosa puoi benissimo farlo da solo, dato che il linguaggio lo devi imparare tu.
"Quid enim est, quod contra vim sine vi fieri possit?" - Cicerone, Ad Familiares
non capisco perchè ti arrabbi tanto, era solo un' indicazione sul codice dovesse servire a qualcuno