19 lines
542 B
Plaintext
19 lines
542 B
Plaintext
\\ one line, hard to read
|
|
For i=1 to 100 {If i mod 3=0 Then {if i mod 5=0 Then Print "FizzBuzz", Else Print "Fizz",} Else {if i mod 5=0 Then Print "Buzz", else print i, } } : Print
|
|
|
|
\\ Better code
|
|
For i=1 to 100 {
|
|
Push str$(i,0)+". "+if$(i mod 3=0->"Fizz","")+if$(i mod 5=0->"Buzz","")
|
|
If stackitem$()="" then Drop : Continue
|
|
Print Letter$
|
|
}
|
|
|
|
\\ Far Better Code
|
|
For i=1 to 100 {
|
|
Printme(if$(i mod 3=0->"Fizz","")+if$(i mod 5=0->"Buzz",""))
|
|
}
|
|
Print
|
|
Sub Printme(a$)
|
|
If a$<>"" Then Print a$, else Print i,
|
|
End Sub
|