language: Ocaml (ocamlopt 3.10.2)
date: 166 days 17 hours ago
link:
visibility: public 
1
2
3
4

let linear x = x;;
let rec sum n m f = if n<m then ((f n)+(sum (n+1) m f)) else (f n);;
 
Printf.printf "%d\n" (sum 1 100 linear);;