nonograms-dojo.clj

# fork this gist and provide your solution
(ns nonogram.core
  (require [mikera.image.core :as image]
           [mikera.image.dither :as dither]))


(defn create-matrix [image-path]
  (let [img (-> (image/load-image image-path)
                (image/resize 20 20)
                (dither/dither (dither/mono-palette-function)))]
    (for [x (range 20) y (range 20)]
      (image/get-pixel img x y))))

;; Repl output:
> (distinct (create-matrix "resources/banana.bmp"))
(4294967295 4278190080)

(ns nonogram.core
(require [mikera.image.core :as image]
[mikera.image.dither :as dither]))

(defn create-matrix [image-path](let [img %28-> %28image/load-image image-path%29
%28image/resize 20 20%29
%28dither/dither %28dither/mono-palette-function%29%29%29]
%28for [x %28range 20%29 y %28range 20%29]
%28image/get-pixel img x y%29%29))

;; repl output:

(distinct (create-matrix "resources/banana.bmp"))
(4294967295 4278190080)