bash-ban annyira nem vagyok jó, hogy ilyeneket írjak, de valahogy úgy kellene nekiállni, mint ahogyan a bicikln működik a számzár. Szóval kell egy két dimenziós tömb, és azokban kell iterálgatni végig. Valami ilyesmit képzelj el (php):

Ha ez megvan, akkor szépen csak végig kell rajta menni, és legenrálni a lehetőségeket.

Ez a progi is ezt csinálja/csinálná lényegében. Ha esetleg segít, és valaki valamit észrevesz, akkor egy kicsit kommentelem:

#!/bin/bash

if [ $# -eq 0 ]; then exit ; fi

# Hány mezőre bomlik – csak a vesszőket hagyjuk a szövegben, és a karaktereket megszámoljuk (wc), de előtte még töröljük az újsor-karaktert (tr)
FIELD_NR=$(echo $* | grep -o „,” | tr -d „n” | wc -m)
FIELD_NR=$((FIELD_NR + 2)) # Nem igazán értem, miért +2 kell, miért nem +1

# Egy ideiglenes fájlt csinálunk
TEMPFILE=$(mktemp)

# A paramétert a „vesszőknél fogva” sorokra tördeljük (awk), az elején levő felesleges szóközöket töröljük (sed) és a TEMPFILE-ba írjuk
echo $* | awk -F „,” {‘for (i=1;i $TEMPFILE

# A rekurzív függvénykém
# Hívása: Permutacio hanyadik_szint eddig_generált_karakter_sor
function Permutacio () {

        # Lokális változók…
        local level
        local CUR_ROW
        local i

        # Az első paramétert eltároljuk, majd őt „kilökjük” (shift), hogy ne zavarjon bele a generált szövegbe
        level=$1
        shift

        # Ha elértük a „bűvös” szintet, akkor az eddig generált karaktersort kiírjuk, és nem rekurvulunk tovább
        if [ $level -eq $FIELD_NR ]; then
                echo $*
                break
        fi

        # A level sorszámú („leveledik” 😉 ) sort kiszedjük a fájlból (sed)
        CUR_ROW=$(sed -n „${level}p” $TEMPFILE)
        # A level-t eggyel növeljük – bár szerintem ezt a megjegyzést nem is kellett volna ideírni 🙂
        level=$((level+1))

        # Az aktuális sor szóközökkel elválasztott szavain szalad végig az i változó
        for i in $CUR_ROW ; do
                # Rekurzió, a már megnövelt level-lel, az eddig kapott karaktersor ($*) kibővítve az aktuális „szóval” ($i)
                Permutacio $level $* $i
        done
}

# Rekurzió elkezdése level=1-gyel és üres sorozattal
Permutacio 1

# Szerintem az uccsó sor nem szorul magyarázatra
rm $TEMPFILE

Próbáltam én debuggolni (különféle echo-üzik), de mintha az történne, hogy a legutolsó szintű for-cikluson nem halad végig, csak az első elemre hajtja végre a ciklusmagot…

Hopp, meg is van!
Azt hittem, hogy a break „csak” a függvényből lép ki. Ezt meg is teszi, de az épp aktuálisan futó for (az előző rekurzió) is megszakad. Ezért a következő a helyes:

És a szám is stimmel:

(persze a permutációk is megfelelőek, csak 27 sort nem írok még ide)