gistfile1.clj

;; Write a sine wave

(def lines-per-period 30)
(def line-width 80)

(defn write-period []
  (dotimes [line lines-per-period]
   (let [columns (vec (repeat line-width " "))
         sine (Math/sin (* (* Math/PI 2)
                           (double (/ line lines-per-period))))
         sine-scaled (/ (+ 1 sine) 2)
         sine-column (int (* line-width sine-scaled))
         columns-starred (assoc columns sine-column "*")]
     (println (apply str columns-starred)))))

(write-period)
(write-period)