Moze i Perl (+ bash) za manje od 10 sec:
Kôd:
use Digest::MD5 qw/md5_hex/;
use Time::HiRes qw/gettimeofday/;
while( $i++ < 80_000 * 1.001 )
{
my ( $m, $ms ) = gettimeofday;
my $code = md5_hex( $m . $ms );
for( $a = 0; $a < 25; $a++ )
{
print substr( $code, $a, 8 ), "\n";
}
}
Manje petljanja - brze izvrsenje...
Kôd:
$ time perl rnd.pl > /dev/null
real 0m2.542s
user 0m2.452s
sys 0m0.032s
$ time perl rnd.pl | sort -u | head -n 2000000 | wc -l
2000000
real 0m9.187s
user 0m8.629s
sys 0m0.320s
Naravno, MATLAB opet odradi posao znatno brze. Pandan MATLAB-ovog resenja radi malo sporije (11 sec prosek), i generise neznatno vise duplikata (0.05% umesto 0.025%).