Joulukortti

README.md

What you need

• Java
• Clojure

Usage

Download source file

To start REPL

java -cp clojure-1.7.0.jar clojure.main

To eval code

(load-file "/path/to/joulukortti.clj")
(greet)

joulukortti.clj

(defn greet
  []
  (let [h [[72 72 32 32 32 32 72 72 32 32][72 72 32 32 32 32 72 72 32 32][72 72 32 32 32 32 72 72 32 32][72 72 72 72 72 72 72 72 32 32][72 72 72 72 72 72 72 72 32 32][72 72 32 32 32 32 72 72 32 32][72 72 32 32 32 32 72 72 32 32][72 72 32 32 32 32 72 72 32 32]]
        y [[89 89 32 32 32 32 32 32 89 89][32 89 89 32 32 32 32 89 89 32][32 32 89 89 32 32 89 89 32 32][32 32 32 89 89 89 89 32 32 32][32 32 32 32 89 89 32 32 32 32][32 32 32 32 89 89 32 32 32 32][32 32 32 32 89 89 32 32 32 32][32 32 32 32 89 89 32 32 32 32]]
        v [[32 32 86 86 32 32 32 32 32 86 86][32 32 86 86 32 32 32 32 32 86 86][32 32 86 86 32 32 32 32 32 86 86][32 32 86 86 32 32 32 32 32 86 86][32 32 32 86 86 32 32 32 86 86 32][32 32 32 32 86 86 32 86 86 32 32][32 32 32 32 32 86 86 86 32 32 32][32 32 32 32 32 32 86 32 32 32 32]]
        ae [[32 32 32 196 32 32 32 32 32 196 32][32 32 32 32 32 196 196 196 32 32 32][32 32 32 32 196 196 32 196 196 32 32][32 32 32 196 196 32 32 32 196 196 32][32 32 196 196 32 32 32 32 32 196 196][32 32 196 196 196 196 196 196 196 196 196][32 32 196 196 32 32 32 32 32 196 196][32 32 196 196 32 32 32 32 32 196 196]]
        j [[32 32 32 32 32 32 74 74][32 32 32 32 32 32 74 74][32 32 32 32 32 32 74 74][74 74 32 32 32 32 74 74][74 74 32 32 32 32 74 74][74 74 32 32 32 32 74 74][32 74 74 74 74 74 74 32][32 32 74 74 74 74 32 32]]
        o [[32 32 32 79 79 79 79 79 79 79 32][32 32 79 79 79 79 79 79 79 79 79][32 32 79 79 32 32 32 32 32 79 79][32 32 79 79 32 32 32 32 32 79 79][32 32 79 79 32 32 32 32 32 79 79][32 32 79 79 32 32 32 32 32 79 79][32 32 79 79 79 79 79 79 79 79 79][32 32 32 79 79 79 79 79 79 79 32]]
        u [[32 32 85 85 32 32 32 32 85 85][32 32 85 85 32 32 32 32 85 85][32 32 85 85 32 32 32 32 85 85][32 32 85 85 32 32 32 32 85 85][32 32 85 85 32 32 32 32 85 85][32 32 85 85 32 32 32 32 85 85][32 32 32 85 85 85 85 85 85 32][32 32 32 32 85 85 85 85 32 32]]
        l [[32 32 76 76 32 32 32 32 32 32][32 32 76 76 32 32 32 32 32 32][32 32 76 76 32 32 32 32 32 32][32 32 76 76 32 32 32 32 32 32][32 32 76 76 32 32 32 32 32 32][32 32 76 76 32 32 32 32 32 32][32 32 76 76 76 76 76 76 76 76][32 32 76 76 76 76 76 76 76 76]]
        a [[32 32 32 32 32 32 65 32 32 32 32][32 32 32 32 32 65 65 65 32 32 32][32 32 32 32 65 65 32 65 65 32 32][32 32 32 65 65 32 32 32 65 65 32][32 32 65 65 32 32 32 32 32 65 65][32 32 65 65 65 65 65 65 65 65 65][32 32 65 65 32 32 32 32 32 65 65][32 32 65 65 32 32 32 32 32 65 65]]
        lttrr (fn [r] (map #(char %) r))
        vctr (fn [n] (vector n))
        things (interleave h y v ae ae
                           (map vctr (repeat 8 9))
                           (map vctr (repeat 8 9))
                           j o u l u a
                           (map vctr (repeat 8 10)))]
    (print (reduce (fn [s r] (str s (apply str (lttrr r)))) "" things))))