syuta-4clojure-solution83.clj

;; syuta's solution to A Half-Truth
;; https://4clojure.com/problem/83

(fn[& arg]
  (loop[cur (first arg) cdr(rest arg)]
  (if(empty? cdr)
	 false
	 (if(= cur (first cdr))
	   (recur (first cdr) (rest cdr))
	   true))))