fbq_hiphop.clj

(defn pos-int-range [max]
  ;; rest drops leading 0
  ;; inc as range is not inclusive
  (lazy-seq (rest (range (inc max)))))

(defn not-nil? [x] (not= nil x))

(defn hiphop [n]
  (cond (> n 2)
        (cond (and (zero? (mod n 15))) "Hop"
                   
                   (zero? (mod n 3)) "Hoppity"
                   
                   (zero? (mod n 5)) "Hophop")))

(map println (filter not-nil? (map hiphop (pos-int-range 15))))