FilesExpand file tree

main

/

fizzbuzz.lisp

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

17 lines (15 loc) · 422 Bytes

main

/

fizzbuzz.lisp

Copy path

Top

File metadata and controls

• Code
• Blame

17 lines (15 loc) · 422 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

;; get the fizzbuzz output for the given value.

(defun fizzbuzz (n)

(cond

((= (% n 15) 0) "FizzBuzz")

((= (% n 3) 0) "Fizz")

((= (% n 5) 0) "Buzz")

(1 n)))

;; handle the numbers in the list (0-100)

(defun handle_number (xs)

(when xs

(println (fizzbuzz (car xs)))

(handle_number (cdr xs))))

;; Show fizzbuzz for values 1-100.

(defun main (args)

(handle_number (nat 100)))