huyngo
/
conlang
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Output to stdout isntead of file

This commit is contained in:
Ngô Ngọc Đức Huy 2021-04-25 19:50:57 +07:00
parent bb8a0cfa74
commit 77d838ccaf
Signed by: huyngo
GPG Key ID: 904AF1C7CDF695C3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/genwords.raku
View File

@ -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
}