FizzBuzz in LFE

fizzbuzz.lfe

(defmodule fizzbuzz
  (export (fizzbuzz 1)))

(defun fizzbuzz (n)
  (lists:foreach
    (lambda (x) (lfe_io:format "~p~n" `(,x)))
    (lists:map #'fizz/1 (lists:seq 1 n))))

(defun fizz (n) (fizz n (rem n 3) (rem n 5)))

(defun fizz
  ([_ 0 0] 'FizzBuzz)
  ([_ 0 _] 'Fizz)
  ([_ _ 0] 'Buzz)
  ([n _ _] n))

It might be cool to define prn:

(defun prn (x) (io:format '"~p~n" `(,x)))

and refer to it in the foreach/2 form:

(lists:foreach #'prn/1 ...)

Strings are self quoting so there is no need to quote them.

> (fizzbuzz 15)
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
ok