foosball.clj

foosball.clj

(defn modfive [number] 
    (= 0 (mod number 5)))

(defn modthree [number] 
    (= 0 (mod number 3)))

(defn foosball [number] 
    (if (modthree number) 
        (if (modfive number) "foosball" "foos") 
        (if (modfive number) "ball" number)))


(map foosball (range 1 101))

I would be more impressed if I saw tests. :-P

TROLL.