Tofino data processing

tofino.clj

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

(defn rows [page]
  (map #(str/split % #"\s+")
       (str/split-lines (slurp page))))

(defn barcode [row]
  (first row))

(defn barcode3 
  "Returns nil if item has only one barcode."
  [row]
  (when-not #(= % "$0.00") 
    (second row)))

(defn item 
  "The item # is always the one after the price,
   and we are only dealing with $0.00 items."
  [row]
  (second (drop-while #(not= "$0.00" %) row)))

(defn dssi? [row]
  (contains? (set row) "DSSI"))

(comment
  (map item
       (remove dssi? (drop 340 (rows "4"))))
  (barcode (nth (rows "4") 382))
  (dssi? (nth (rows "4") 382))
  )