Random String Implementation in NQP

random-nqp.md

Would this be good enough as a generator for temporary filenames? \

nqp::srand(nqp::floor_n(nqp::mul_n(nqp::time_n(),10000)));
my $filechars := 'abcdefghijklmnopqrstuvwxyz0123456789';

my $chr := 20;
my $tmpnam := '';

while $chr {
  my $rc := nqp::floor_n(nqp::rand_n(nqp::chars($filechars)));
  $tmpnam := nqp::concat(
    $tmpnam,
    nqp::substr($filechars, $rc, 1)
  );
  $chr--;
}

say($tmpnam);