tulisp 0.25.1

An embeddable lisp interpreter.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13

(defun fizz-buzz (x)
  (if (equal 0 (mod x 15))
      "FizzBuzz"
    (if (equal 0 (mod x 3))
        "Fizz"
      (if (equal 0 (mod x 5))
          "Buzz"
        x))))

(let ((count 1))
  (while (<= count 100)
    (princ (fizz-buzz count))
    (setq count (+ 1 count))))