All pastes #898936 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-02-10 19:17 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(Right$(s,Len(s)-1),p+Mid$(s,i,1))
	Next
End Function