Warning: mysqli::__construct(): (HY000/1203): User howardkn already has more than 'max_user_connections' active connections in D:\Inetpub\vhosts\howardknight.net\al.howardknight.net\includes\artfuncs.php on line 21
Failed to connect to MySQL: (1203) User howardkn already has more than 'max_user_connections' active connectionsPath: ...!news.nobody.at!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: HenHanna
Newsgroups: comp.lang.lisp
Subject: collect-repeats (Tasters Wanted)
Date: Thu, 15 Aug 2024 15:48:53 -0700
Organization: A noiseless patient Spider
Lines: 20
Message-ID:
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 16 Aug 2024 00:48:54 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="e3136333d5489221ac298a31ddaa858b";
logging-data="1192269"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18jFygs0Wy5lA57YuAHjI08LoBRdHDpwmU="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:9/5A+GZWYJftUCPPTMcOgXpi21w=
Content-Language: en-US
Bytes: 1378
(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)))