Registracija

Generisanje svih kombinacija datih znakova

Odgovori Nova tema

1 odgovor
4.489 pregleda

Generisanje svih kombinacija datih znakova 13.10.2006. u 10:23 · pre 244 meseca #1

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.

Potpis

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

Re: Generisanje svih kombinacija datih znakova 27.10.2006. u 15:36 · pre 243 meseca #2

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

Potpis

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme