Same fringe: Difference between revisions

Content added Content deleted
(→‎{{header|Perl 6}}: oops, forgot to remove one line)
(→‎{{header|Clojure}}: slight tweak)
Line 520: Line 520:
(and (empty? s1) (empty? s2)) true
(and (empty? s1) (empty? s2)) true
(not= (empty? s1) (empty? s2)) false
(not= (empty? s1) (empty? s2)) false
(= (first s1) (first s2)) (recur (rest s1) (rest s2))
:else
:else false))</lang>
(if (= (first s1) (first s2))
(recur (rest s1) (rest s2))
false)))</lang>


=={{header|D}}==
=={{header|D}}==