n
Size: a a a
n
AC
n
(defrecord s-list-node [next data])
(defrecord s-list [head])
(defn s-list-search [lst val]
(loop [element @(:head lst)]
(if (seq element)
(if (= (:data element) val)
(println (:data element))
(recur @(:next element)))
(println "nil"))))
AC
AC
n
n
(defn slist-prepend! [lst val]
(dosync
(ref-set (:head lst)
(s-list-node. (ref (deref (:head lst))) val))))
n
n
DL
(:head lst)
два раза, надо деструктурить lstAC
AC
n
DL
AC
AC
AC