Skip to main content

Browse the archive

Revision f94b06de7edcb61d3c49f19417e53dc7dc21d552 authored by Anish Tondwalkar on 22 June 2021, 08:13:54 UTC, committed by Anish Tondwalkar on 22 June 2021, 08:13:54 UTC 
updated README
1 parent 0a9345e
Raw File
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