8 lines
146 B
OCaml
8 lines
146 B
OCaml
|
fun repeat (_, 0) = ()
|
||
|
|
| repeat (f, n) = (f (); repeat (f, n - 1))
|
||
|
|
|
||
|
|
fun testProcedure () =
|
||
|
|
print "test\n"
|
||
|
|
|
||
|
|
val () = repeat (testProcedure, 5)
|