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