Генератор слов

[Biforz]

Версия AutoIt: 3.3.8.1

Описание:
Необходим генератор слов! К примеру, есть два слова (мама, папа). Из них можно составить 4 значения:
1) Мама, папа.
2) Папа, мама.
3) Мама, мама.
4) Папа, папа.

Как это можно осуществить?

 

[Black_Night]

Ну как-то так

Global _
$text[3] = [0, "Мама","Папа"]
$df = MsgBox(64, "Рандом",($text[Random(1,2,1)]) & " " & ($text[Random(1,2,1)]))

 

[C2H5OH]

Я так понял что ТС нужны все возможные комбинации.

Dim $slova[5] = [4, "Мама","Папа","Сын","Дочь"]

_zhelau_4toby_vse(0,"")

Func _zhelau_4toby_vse($deep, $string)
	If $deep >= $slova[0] Then
		ConsoleWrite($string & "." & @CRLF)
		Return
	EndIf
	For $i = 1 To $slova[0]
		_zhelau_4toby_vse($deep+1, $string & ", " & $slova[$i])
	Next
EndFunc

А ну, давайте то же самое, но без рекурсии. :laugh:

 

[Biforz]

Всё, большое спасибо ребят! Очень благодарен!