7 lines
183 B
Clojure
7 lines
183 B
Clojure
|
(defn seq= [s1 s2]
|
||
|
|
(cond
|
||
|
|
(and (empty? s1) (empty? s2)) true
|
||
|
|
(not= (empty? s1) (empty? s2)) false
|
||
|
|
(= (first s1) (first s2)) (recur (rest s1) (rest s2))
|
||
|
|
:else false))
|