             [kolmogorov-music.instrument :as instrument]
             [kolmogorov-music.coding :as coding]))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Air on a \G String ;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Air on the \G String ;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (comment (repeat 1000000000000 \G))
 

  `(/ (description-length ~expr) (result-length ~expr)))

(fact "Kolmogorov randomness is the compression ratio between the description and the result."
  (randomness (repeat 65 \G)) => 13/131)

(defmacro random? [expr]
  `(>= (randomness ~expr) 1))

(fact "A value is random if its description isn't shorter than its result."
  (random? (repeat 65 \G)) => false
  (random? (->> 66 char (repeat 14) (take 3))) => true)







;;;;;;;;;;;;;;;;;;;;;
;;; Blurred Lines ;;;
;;;;;;;;;;;;;;;;;;;;;
