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)))