99 Clojure中的第9個問題（將列表元素的連續副本包裝到子列表中）

Question

這是處理單個列表的重複元素的小問題，我正在處理一些處理一些嵌套列表的結，所以我想寫首先是簡單情況。 所以我有：

(defn packDuplicatesIntoLists [listOfElements l e] 
     (if(= e 'nil) 
     'true 
     (if(=() listOfElements) 
      (if 
      (= e '()) 
      l 
      (list l e) 
     ) 
      (if 
       (= (first listOfElements) (first e)) 
       (packDuplicatesIntoLists (rest listOfElements) l (cons (first listOfElements) e)) 
     (packDuplicatesIntoLists (rest listOfElements) (list l e) (first listOfElements)) 
     ) 
     ) 

） ）

(packDuplicatesIntoLists '(2) '(1 1) '(2 2)) (packDuplicatesIntoLists '() '(1 1) '(2 2)) (packDuplicatesIntoLists '() '() '()) (packDuplicatesIntoLists '(1 1 1 2 2 2 3 3 3 4 4 4 4) '() '()) 

但 （packDuplicatesIntoLists（休息listOfElements）（名單LE）（第一listOfElements）） 是讓我陷入麻煩，

#'NintyNineProblems.LearnSpace/packDuplicatesIntoLists 
    ((1 1) (2 2 2)) 
    ((1 1) (2 2)) 
    () 
    IllegalArgumentException Don't know how to create ISeq from: java.lang.Long clojure.lang.RT.seqFrom (RT.java:505 

這條線怎麼了？

Answer 1

所以，它仍反轉lsit，但尾遞歸

 (defn packDuplicatesIntoLists [listOfElements l e] 
     (if(= '() listOfElements) 
     (cons e l) 
     (if 
     (= (first listOfElements) (first e)) 
     (recur (rest listOfElements) l (cons (first listOfElements) e)) 
     (if (= '() e) 
      (recur (rest listOfElements) l (list (first listOfElements))) 
      (recur (rest listOfElements) (cons e l) (list (first listOfElements))) 
     ) 
     ) 
     ) 
    ) 

（packDuplicatesIntoLists '（2 2 2 4 4 4 5 5 5 8 8 8 6 9 9 9 9 9）'（）「（ ）） （packDuplicatesIntoLists '（）'（） '（））（packDuplicatesIntoLists' 零 '（）'（））