 
 
 
-;;;;;;;;;;;;;;;;
-;;; Anti EP ;;;;
-;;;;;;;;;;;;;;;;
-
 ;;;;;;;;;;;;;;;;;;;;;
 ;;; Blurred Lines ;;;
 ;;;;;;;;;;;;;;;;;;;;;

  `(/ (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)




(fact "The definitionally macro lets us calculate on the definition of symbols."
  (definitionally description-length row-row) => 281
  (definitionally result-length row-row) => 2037
  (definitionally randomness row-row) => 281/2037)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;
