gistfile1.txt

(ns flip.core
  (:gen-class)
  (:require [clojure.core.matrix :as m]))

; a 1000 x 100 grid with random characters
(def grid (m/emap (fn [_] (rand-nth (seq "ABCDEFGHIJKLMNOPQRSTUVWXYZ")))
                  (m/new-matrix 1000 100)))

(defn abc? [xs]
  "consecutive A B C"
  (= '(\A \B \C) xs))

(defn find-consecutive-abc [pos-setter fields]
  (not-empty (keep-indexed (fn [index segment]
                             (when (abc? segment)
                               (map-indexed (fn [i x] {:pos (pos-setter (+ index i)) :char x}) segment)))
                           (partition 3 1 fields))))

(defn flip [f & xs]
  (apply f (reverse xs)))

(defn -main [& args]
  "prints all all consecutive occurences of A-B-C, wheter vertically or horizontally"
  (let [vertically (keep-indexed #(find-consecutive-abc (partial vector %1) %2) (m/columns grid))
        horizontally (keep-indexed #(find-consecutive-abc (partial flip vector %1) %2) (m/rows grid))]
          (doseq [a (concat vertically horizontally)]
            (println a))))