сгенерировать комбинации в 3 символа

мож у кого завалялось.. комбинации всех английских маленьких букв длинной 3 символа
asd
dsa
fds
dfg
....

 

Code:

perl -e '$a="aaa"; for(;;) { print "$a\n"; last if $a eq "zzz"; $a++ }'

 

PHP:

<?php

$ar = array('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','r','s','t','u','v','x','y','z');
foreach($ar as $a){
foreach($ar as $b){
foreach($ar as $c){
echo $a.$b.$c;
}
}
}

?>

 

спасибо товарищи!
на перле кака я понял надо добавить сохранение в файл, щас вот пробую

на пыхе пашет только, почемуто все в 1 строку записывает

 

Code:

var i,j,count:integer;
k:text;
gen:string;
begin
assign(k, 'C:\file.txt');
rewrite(k);
writeln('CKoJIbKo CrEHePuPoBaTb?!');
readln(count);
gen:='';
j:=0;
repeat
inc(j);
for i:=1 to 3 do
gen:=gen+chr(ord('a')+random(26));
writeln(k, gen);
gen:='';
until count=j;
close(k);
end.

Проверил, все пашет. Вначале вводишь, сколько нужно сгенерировать, а потом уже в диске C: получаешь file.txt нужными тебе данными.

P.S. Pascal+Delphi RuLeZZ!