dojo2.clj

(ns dojo.core
  (:require [clojure.string :as str]))

(defn parse-line
  [l]
  (->> (take 3 l)
       (map #(partition 3 %))
       (apply map vector)))

(defn parse
  [s]
  (as-> (slurp s) x
        (str/split x #"\r\n")
        (partition 4 x)
        (map parse-line x)))

(def definition
  (map vector (parse "sample2.txt") (range)))

(def x (vec (parse "sample2.txt")))

(defn doit
  []
  (parse "sample.txt"))