All pastes #898948 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-02-10 19:22 UTC
rendered paste body
rec("abcd")
Function rec(s:String,p:String="")
	If Len(s) = 1 Then
		Print p+s
		Return
	EndIf
	For i=1 To Len(s)
		rec(Replace$(s,Mid$(s,i,1),""),p+Mid$(s,i,1))
	Next
End Function