Checks if a particular collection is a prefix of another collection (contained in it at the beginning). e.g. (prefix-of? [1 2] [1 2 3]) returns true whereas (prefix-of? [2 3] [1 2 3]) returns false.

prefix-of.clj

(def prefix-of?
  (fn [chunk full]
    (or
      (empty? chunk)
      (and
        (=
          (take 1 chunk)
          (take 1 full)
        )
        (prefix-of?
          (drop 1 chunk)
          (drop 1 full)
        )
      )
    )
  )
)