finitud-4clojure-solution22.clj

;; finitud's solution to Count a Sequence
;; https://4clojure.com/problem/22

(fn [x]
  ((fn [x n]
    (if (= (rest x) ())
      n
      (recur (rest x) (+ n 1)))
      )
  x 1))