swh:1:snp:aeaf3dbb58f5be84b565e73b5ade1503ee8cb6d6
Raw File
Tip revision: cda4560576f3b975008fe892fe4fcaaaa71019fe authored by Anish Tondwalkar on 16 March 2020, 20:43:43 UTC
fix tests
Tip revision: cda4560
sum.ml
let sum f g = (f 0) + (g 0)

let test2 = assert ( 11  = sum (fun x -> 10) (fun x -> 1))
let test1 n m = assert ( m + n = sum (fun x -> n) (fun x -> m))
back to top