スキーム内のリストのグループ番号？

Question

リストが与えられたら、リストを同じ要素をグループ化するリストに分割する必要があります。例えば

： '（37 37 39 38 38 39 38 40 40 38）を生じなければならない'（（37 37）（39 39）（38 38 38 38）（40 40））

でき誰もがこれで私を助ける？

Answer 1

は、ここでそれを行うための一つの方法です：

(define (group lst) 
    (let iter ((lst lst) (found null) (res null)) 
    (if (null? lst) ; all done ... 
     (reverse res) ; ... return result (reversed) 
     (let ((c (car lst))) ; isolate first element 
      (if (member c found) ; already processed that 
       (iter (cdr lst) found res) ; just go on with the next 
       (iter (cdr lst) ; otherwise add this to found and create a list of as many elements ... 
        (cons c found) ; ... as found in the list to the current result ... 
        (cons (make-list (count (curry equal? c) lst) c) res))))))) ; ... and go on with the next 

テストを

> (group '(37 37 39 38 38 39 38 40 40 37)) 
'((37 37 37) (39 39) (38 38 38) (40 40)) 
> (group '(37 37 39 38 38 39 38 40 40 38)) 
'((37 37) (39 39) (38 38 38 38) (40 40))