Skip to content

Instantly share code, notes, and snippets.

View pqr's full-sized avatar

Petr Myazin pqr

View GitHub Profile
(require '[leiningen.exec :as le])
(ns foo
(:require [clojure.string :as str]))
(def source-text "https://gist.githubusercontent.com/pqr/0cf155de6b8f95c3c400/raw/56fc9aa6c06bf3e55a2a02d3e4a857580feff2bc/haskell_vs_php_example.txt")
(defn get-lines [text] (map str/trim (str/split-lines text)))
(defn drop-header-line [lines]
(if (re-find #"Container No\\." (first lines))