capitalex / fizzbuzz.poqs

: {run fizzbuzz from $x to $y} > {current number is $x} {run fizzbuzz to $y} : : {run fizzbuzz to $n} {current number is $n} > {fizz $n} {buzz $n} {number is $n} : : {run fizzbuzz to $stop-value} {current number is $n} > {run fizzbuzz to $stop-value} {next number from $n} {fizz $n} {buzz $n} {number is $n} {wrote ""} : : {fizz $n} > {@modulo $n and #3 into &"mod 3 is *"} : : {buzz $n} > {@modulo $n and #5 into &"mod 5 is *"} : : {mod 3 is #0} {wrote $something} > {@write "fizz"} {wrote "fizz"} : : {mod 3 is $x} > : : {mod 5 is #0} {wrote $something} > {@write "buzz"} {wrote "buzz"} : : {mod 5 is $x} > : : {number is $number} {wrote ""} > {@write $number} {@write "\n"} : : {number is $number} {wrote $something} > {@write "\n"} : : {next number from $n} > {@add $n and #1 into &"current number is *"} : {run fizzbuzz from #1 to #100000}