blob: 18020d0a13523ff18e7210b47acf77caa998374e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/..";
use Random;
my ($seed, $count) = @ARGV;
my $rng = Random->new($seed, "files");
my @edges = (
'first last',
'A Z',
'0 0',
);
$rng->emit($count, \@edges, sub {
my @alphabet = split //, 'ABCabc019_-';
my @words;
for (1..2) {
my $size = $rng->integer(1,24);
push @words, join '', map { $alphabet[$rng->integer(0,$#alphabet)] } 1 .. $size;
}
return join ' ', @words;
});
|
