Stable marriage problem: Difference between revisions
m
→{{header|REXX}}: addre
Walterpachl (talk | contribs) m (→{{header|REXX}}: addre) |
|||
Line 5,426:
=={{header|REXX}}==
Algorithm used: see link https://www.youtube.com/watch?v=Qcv1IqHWAzg
<lang REXX>/*- REXX --------------------------------------------------------------
Line 5,626 ⟶ 5,623:
If debug Then
Call dbg arg(1)
Return
repl: Procedure
Parse Arg s,new,old
Do i=1 To 100 Until p=0
p=pos(old,s)
If p>0 Then
s=left(s,p-1)||new||substr(s,p+length(old))
End
Return s </lang>
{{out}}
<pre>
|