Output to stdout isntead of file
This commit is contained in:
parent
bb8a0cfa74
commit
77d838ccaf
|
@ -76,7 +76,7 @@ for "patterns".IO.lines -> $pattern {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub MAIN($max-syllables, $n-outputs) {
|
sub MAIN($max-syllables, $n-outputs) {
|
||||||
my $output = open "output.txt", :w;
|
# my $output = open "output.txt", :w;
|
||||||
|
|
||||||
for (1..$n-outputs) {
|
for (1..$n-outputs) {
|
||||||
my $word = '';
|
my $word = '';
|
||||||
|
@ -84,7 +84,8 @@ sub MAIN($max-syllables, $n-outputs) {
|
||||||
for (1..$n-syllables) {
|
for (1..$n-syllables) {
|
||||||
$word ~= @possible-syllables[@possible-syllables.elems.rand.floor];
|
$word ~= @possible-syllables[@possible-syllables.elems.rand.floor];
|
||||||
}
|
}
|
||||||
$output.say(rewrite($rewrite-rules, $word))
|
# $output.say(rewrite($rewrite-rules, $word))
|
||||||
|
say rewrite($rewrite-rules, $word)
|
||||||
}
|
}
|
||||||
$output.close
|
# $output.close
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue