collect-repeats (Tasters Wanted)

Sujet : collect-repeats (Tasters Wanted)
De : HenHanna (at) *nospam* devnull.tb (HenHanna)
Groupes : comp.lang.lisp
Date : 16. Aug 2024, 00:48:53

Autres entêtes

Organisation : A noiseless patient Spider
Message-ID : <v9m0km$14cad$1@dont-email.me>
User-Agent : Mozilla Thunderbird

(use gauche.sequence)
(define (ColRep x)
   (filter (cut > (length <>) 1) (group-sequence x))) ; --- Doesn't work!
   ----------- possible to write this using CUT ?
(define (ColRep x)
   (filter (lambda (x) (> (length x) 1)) (group-sequence x)))
(define (ColRep x)
   (filter (^x (pair? (cdr x)))   (group-sequence x)))
(print (ColRep '(1 2 4 4 0 5 5 8 8 8 6)) )
(print (ColRep '(4 4 0 5 5 8 8 8 6 1 2 3 4 1 2 3 4)))

Date	Sujet	#		Auteur
16 Aug 24	collect-repeats (Tasters Wanted)	1		HenHanna

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal