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
d2.ml 
let rec app f x = if Random.bool () then app f (x + 1) else f x
let check x y = if x <= y then () else assert false
let main i = app (check i) i
back to top