diff options
| -rw-r--r-- | utils/genwords.raku | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/utils/genwords.raku b/utils/genwords.raku index 1ba9df8..89676ca 100644 --- a/utils/genwords.raku +++ b/utils/genwords.raku @@ -76,7 +76,7 @@ for "patterns".IO.lines -> $pattern { } sub MAIN($max-syllables, $n-outputs) { - my $output = open "output.txt", :w; + # my $output = open "output.txt", :w; for (1..$n-outputs) { my $word = ''; @@ -84,7 +84,8 @@ sub MAIN($max-syllables, $n-outputs) { for (1..$n-syllables) { $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 } |