yep..that is an error but (recur (rest rst) I think wouln't work...maybe something like
(defn packing [lista] (loop [[fst snd :as all] lista mem [] tmp '(fst)] (print "all is " all "\n\n") ;;something is wrong...all always is a empty list (if (seq? all) (if (= fst snd) (recur (rest all) mem (cons snd tmp)) (recur (rest all) (conj mem tmp) (list snd))) (seq mem)))) something is still wrong..:( -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en