[ originall @ 13.10.2006. 09:23 ] @
Pozdrav,
e ovako, imam niz znakova (npr tzuidf) i želim da generišem moguće kombinacije
tih znakova do određene dužine (npr tz, tu, tzu, tui, tuz, ... za reč dužine do 3).
Znači ulaz treba da bude niz znakova i dužina najduže generisane reči.
Ideja, sugestija, gotova skripta ;)?
Hvala.

[Ovu poruku je menjao originall dana 13.10.2006. u 10:39 GMT+1]
[ originall @ 27.10.2006. 14:36 ] @
Izgleda da sam problem malo nezgodno posatvio pa niko nije odgovorio,
bilo kako bilo ovaj put poslužila mi je i jednostavna permutacija, pa evo je
nekog će možda zanimati:

Code:

#!/usr/bin/perl
sub b{s/(\S)(?! \1)/b("@_$&",$'.$`)/eg||print@_,$/for pop}b"@ARGV"
    

Ako neko slučajno nezna, usage: perl naziv_fajla.pl datiznakovi