Scary Fibonacci

ScaryFibonacii.clj

(ns overtone.core)
(use 'overtone.live)
(use 'overtone.inst.piano)

(defn fibn
  "Find nth fibonacii number"
  [n]
  (loop [index 0 x 1 y 1]
    (if (= index n)
      y
      (recur (inc index) y (+ x y)))))      
      
(defn playsomething
  [x]
  (Thread/sleep 200)
  (piano (mod x 130)))
  
(map playsomething (map fibn (range 0 500)))