FizzBuzz: Difference between revisions
Content deleted Content added
No edit summary |
Added XLISP |
||
Line 6,021: | Line 6,021: | ||
endloop |
endloop |
||
endmacro</lang> |
endmacro</lang> |
||
=={{header|XLISP}}== |
|||
<lang lisp>(defun fizzbuzz () |
|||
(defun fizzb (x y) |
|||
(display (cond |
|||
((= (mod x 3) 0) "Fizz") |
|||
((= (mod x 5) 0) "Buzz") |
|||
(t x))) |
|||
(newline) |
|||
(if (< x y) |
|||
(fizzb (+ x 1) y))) |
|||
(fizzb 1 100)) |
|||
(fizzbuzz)</lang> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |