Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
16
Task/Amb/AutoHotkey/amb.ahk
Normal file
16
Task/Amb/AutoHotkey/amb.ahk
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
set1 := "the that a"
|
||||
set2 := "frog elephant thing"
|
||||
set3 := "walked treaded grows"
|
||||
set4 := "slowly quickly"
|
||||
|
||||
MsgBox % amb( "", set1, set2, set3, set4 )
|
||||
; this takes a total of 17 iterations to complete
|
||||
|
||||
amb( char = "", set1 = "", set2 = "", set3 = "", set4 = "" )
|
||||
{ ; original call to amb must leave char param blank
|
||||
Loop, Parse, set1, %A_Space%
|
||||
If (char = (idxchar := SubStr(A_LoopField, 1, 1)) && set2 = ""
|
||||
|| (char = idxchar || char = "") && ((retval:= amb(SubStr(A_LoopField, 0, 1), set2, set3, set4)) != ""))
|
||||
Return A_LoopField " " retval
|
||||
Return ""
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue