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
repeat.ml
let rec repeat f x v = if x = 0 then (f v) else (repeat f (x - 1) (f v))

let foo v = v + 4
let bar v = v + 1

let main x = assert ((repeat bar 15 (repeat foo 30 x)) >= x)
back to top