Skip to main content

Browse the archive

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
incr00.ml 
let incr f = (f 0) + 1

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