Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Generisanje svih kombinacija datih znakova

[es] :: Perl :: Generisanje svih kombinacija datih znakova

[ Pregleda: 3530 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

originall

Član broj: 94173
Poruke: 7
*.crnagora.net.



Profil

icon Generisanje svih kombinacija datih znakova13.10.2006. u 09:23 - pre 213 meseci
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]
If you are going through hell, keep going. - Winston Churchill
 
Odgovor na temu

originall

Član broj: 94173
Poruke: 7
*.crnagora.net.



Profil

icon Re: Generisanje svih kombinacija datih znakova27.10.2006. u 14:36 - pre 212 meseci
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

If you are going through hell, keep going. - Winston Churchill
 
Odgovor na temu

[es] :: Perl :: Generisanje svih kombinacija datih znakova

[ Pregleda: 3530 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.