How to combine and permute two wordlists

Question

I would like to combine and/or permute the words from a list up to 3 times. For example:

If I have one list with:

apple
orange
cafe

and another list with:

11
22
33

it should produce combinations like:

11appleorange22
33orange11cafe2211
orangecafe3333apple1133

The logic is the word from any list can be repeated up to 3 times, no more. But in any order and any permutation. How can I achieve this?

Answer 1

command line, eq cat test test test|shuf|head -n 18|grep -v ^$|paste -s -d"\0":

powershell $r=New-Object Random;1..3^|%{gc test}^|select -f 18^|%{[array]$A+=$_};1..$A.Count^|%{$A[$r.Next(0,$A.Count-1)]}^|?{$_.Length -ne 0}^|%{$S+=$_};$S

cat test test test approximate correspondence ``1..3^|%{gc test}`

shuf approximate correspondence (powershell shuffle strings in pipe):

$r=New-Object Random; ... %{[array]$A+=$_};1..$A.Count^|%{$A[$r.Next(0,$A.Count-1)]}

head -n 18 approximate correspondence select -f 18

grep -v ^$ approximate correspondence ?{$_.Length -ne 0}

paste -s -d"\0" approximate correspondence %{$S+=$_};$S

when see command line:

cat test test test|shuf|head -n 18|grep -v ^$|paste -s -d"\0"

imagined the file type - test:

1
2
3
5

7
8

use file test:

apple
orange
cafe
11
22
33

shuffle1.ps1:

$r=New-Object Random;1..3|%{gc test}|select -f 18|%{[array]$A+=$_};1..$A.Count|%{$A[$r.Next(0,$A.Count-1)]}|?{$_.Length -ne 0}|%{$S+=$_};$S

For the purpose of generating text from templates are more suitable in another language.

It needs a specialist in Common Lisp and C. May be an expert Haskell.

If necessary mathematical symbolic computation then it is likely Maxima.

But you can always do whatever tools that are not designed for specific tasks ))).

It will be very nice if you describe your problem completely. Architecturally.

Answer 2

If you have a Linux computer handy (or Mac OS X might do), create a file called test with this content:

apple
orange
cafe
11
22
33

followed by six empty lines. Then run this:

cat test test test|shuf|head -n 18|grep -v ^$|paste -s -d"\0"

cat concatenates the files, shuf shuffles the lines, head retrieves the first 18 lines (so you can have your maximum string), grep excludes empty lines and paste glues the line together.

EDIT: Sorry, only noticed the windows tag after posting. You can install Cygwin for this, but you might as well just take the principle and implement in something else.