cleaned up fizzbuzz (lol)

tedpennings · Nov 30, 2011 · f41c60e · f41c60e
1 parent 7783288
commit f41c60e
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/fizzbuzz.clj b/src/fizzbuzz.clj
@@ -1,10 +1,10 @@
 (defn fizzbuzz []
 	(loop [x 1]
-		(prn x)
+		(print (str x " "))
-		(if (= 0 (rem x 3))
+		(if (zero? (mod x 3))
-		    (prn "Fizz"))
+		    (print "Fizz"))
-		(if (= 0 (rem x 5))
+		(if (zero? (mod x 5))
-		    (prn "Buzz"))
+		    (print "Buzz"))
-		(println)
+		(println) ;only line break printed
 		(if (< x 100)
 			(recur (inc x)))))