Repeat: Difference between revisions
no edit summary
(add Standard ML) |
No edit summary |
||
Line 1,210:
false.
</pre>
=={{header|PureBasic}}==
<lang PureBasic>Prototype.i fun(x.i)
Procedure.i quark(z.i)
Debug "Quark "+Str(z) : ProcedureReturn z-1
EndProcedure
Procedure rep(q.fun,n.i)
Repeat : n=q(n) : Until n=0
EndProcedure
rep(@quark(),3)</lang>
{{out}}
<pre>Quark 3
Quark 2
Quark 1</pre>
=={{header|Python}}==
| |||