marble/programs/adder.mbl

(print sum of 2 numbers)
  o
  > 1230  B
 vo      A-+
  > 45898 B|
  o      --+
  >      *  B
         o
   (check if 0)
         1
v  < B=- 0
 v   o * D- (div/10)
v       B *  <

v> * 1    o  ^
 F -R0  * 4 B
*| # <  -A8 v
 |      # <
#-|            v   <
  |         *-|
  F           +B * ^
 #<         \F----
(ascii digit s)
(printed in)*-|
(reverse)    P-
            B
cleanup 2024-09-30 21:12:41 +02:00			`(print sum of 2 numbers)`
comment parsing, marbles pass through spaces in comments. fix crash on division by zero 2024-09-30 20:21:52 +02:00			`o`
upgrade marble value size to 32 bit 2024-09-30 21:07:24 +02:00			`> 1230 B`
comment parsing, marbles pass through spaces in comments. fix crash on division by zero 2024-09-30 20:21:52 +02:00			`vo A-+`
upgrade marble value size to 32 bit 2024-09-30 21:07:24 +02:00			`> 45898 B\|`
comment parsing, marbles pass through spaces in comments. fix crash on division by zero 2024-09-30 20:21:52 +02:00			`o --+`
			`> * B`
			`o`
			`(check if 0)`
remove counter from bag tile, they can output unlimited marbles now 2024-09-30 20:59:00 +02:00			`1`
comment parsing, marbles pass through spaces in comments. fix crash on division by zero 2024-09-30 20:21:52 +02:00			`v < B=- 0`
			`v o * D- (div/10)`
			`v B * <`

			`v> * 1 o ^`
			`F -R0 * 4 B`
			`*\| # < -A8 v`
			`\| # <`
cleanup 2024-09-30 21:12:41 +02:00			`#-\| v <`
remove counter from bag tile, they can output unlimited marbles now 2024-09-30 20:59:00 +02:00			`\| *-\|`
comment parsing, marbles pass through spaces in comments. fix crash on division by zero 2024-09-30 20:21:52 +02:00			`F +B * ^`
			`#< \F----`
			`(ascii digit s)`
			`(printed in)*-\|`
			`(reverse) P-`
			`B`