about summary refs log tree commit diff
path: root/utils
diff options
context:
space:
mode:
authorNgô Ngọc Đức Huy <huyngo@disroot.org>2021-04-25 19:50:57 +0700
committerNgô Ngọc Đức Huy <huyngo@disroot.org>2021-04-25 19:51:15 +0700
commit77d838ccaf481837adad17783b43fa195b702c33 (patch)
tree50c0cc07063de88dc15acd6bf785eb8e1bf67fa2 /utils
parentbb8a0cfa74f84f2b5e4fcdfb292e290477bf9085 (diff)
downloadhaasdaiga-77d838ccaf481837adad17783b43fa195b702c33.tar.gz
Output to stdout isntead of file
Diffstat (limited to 'utils')
-rw-r--r--utils/genwords.raku7
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
 }