(seq? ()) is true. You want (seq all), not (seq? all). There may be other problems, but that one jumps out at me.
On Nov 30, 1:53 pm, coco <[email protected]> wrote: > 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 [email protected] Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/clojure?hl=en
