uxn

commit a673d6333618665440d51d9d4851b816e13c5d68
parent 050690181a362f474847eca50030732180245d4a
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Fri, 21 Jul 2023 11:35:56 -0700

(fizzbuzz.tal) Formatting

Diffstat:
M
projects/examples/exercises/fizzbuzz.tal
 | 
48
++++++++++++++++++++++--------------------------

1 file changed, 22 insertions(+), 26 deletions(-)
diff --git a/projects/examples/exercises/fizzbuzz.tal b/projects/examples/exercises/fizzbuzz.tal
@@ -1,40 +1,36 @@
-( FizzBuzz:
-	A program that prints the integers from 1 to 100.
-	for multiples of three, print "Fizz"
-	for multiples of five, print "Buzz"
-	for multiples of both three and five, print "FizzBuzz" )
+( FizzBuzz: From 1 to 100, for multiples of 3 print "Fizz", of 5 "Buzz" and for both "FizzBuzz" )
 
-|0100 ( -> )
+|0100
+
+@on-reset ( -> )
 	#6400
-	&loop
-		( integer )
-		DUPk print-dec #2018 DEO
-		( fizzbuzz )
-		DUP #03 mod ?&no3 ;dict/fizz print-str &no3
-		DUP #05 mod ?&no5 ;dict/buzz print-str &no5
+	&loop ( integer )
+		DUP print-dec #2018 DEO
+		DUP #03 mod ?&>no-3
+			;dict/fizz print-str &>no-3
+		DUP #05 mod ?&>no-5
+			;dict/buzz print-str &>no-5
 		#0a18 DEO
 		INC GTHk ?&loop
 	POP2
-	( halt )
-	#010f DEO
-BRK
+	( halt ) #010f DEO
+	BRK
 
 @mod ( a b -- c )
-	DIVk MUL SUB
-JMP2r
+	DIVk MUL SUB JMP2r
 
 @print-dec ( num -- )
-	#0a DIV print-num
-	#0a DIVk MUL SUB
-@print-num
-	#30 ADD #18 DEO
-JMP2r
+	( x0 ) DUP #0a DIV print-dec/num
+	( 0x ) #0a DIVk MUL SUB &num #30 ADD #18 DEO
+	JMP2r
 
 @print-str ( addr* -- )
-	&while
+	&while ( -- )
 		LDAk #18 DEO
 		INC2 LDAk ?&while
-	POP2
-JMP2r
+	POP2 JMP2r
+
+@dict ( strings )
+	&fizz "Fizz $1
+	&buzz "Buzz $1
 
-@dict &fizz "Fizz $1 &buzz "Buzz $1