marc (napisa): |
Je li slucajno ko jos ima neki link na ovaj program.
reko frend da je zakon,pa ako tko ima.... |
Kod: |
#!/usr/bin/perl sub ngrami {my %g;for$b('A'x$_[0]..'Z'x$_[0]){$g{$b}=scalar(@x=$sifrat=~/$b/gi)} $g{$_}and print"$_: $g{$_} "for(sort {$g{$b}<=>$g{$a}||$a cmp $b} keys(%g)); print"\n\n";} undef$/;($sifrat=<>)=~s/\W//g; for$d(split('',$sifrat)){$a{$d}++;} print "\n";ngrami 1;ngrami 2;ngrami 3; |
Perosito (napisa): |
A jel ima ko (ili zna di se može naći) program koji računa indekse koincidencije i međusobne indekse koincidencije? |
output generated using printer-friendly topic mod. Vremenska zona: GMT + 01:00.