🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.funkcyjne
Article #365

Re: [Haskell] Lista bez powtórzeń.

#365
From: Marcin Gajda
Date: Mon, 16 Jun 2003 12:48
10 lines
1310 bytes
> powt2 :: Ord a => [a] -> Bool
> powt2 l = any (> 1) (map length (group (sort l)))

Dzięki. Przez pierwsze poprzegryzam się wieczorem. A to wygląda badzo
fajnie - gdybym wiedział o istnieniu group, może nawet sam bym na wpadł.

Pozdrawiam,
-- 
Marcin Gajda ________________________
Dieu me pardonerra - c'est son metier
Technical Details
Message-ID: <bckeb5$g70$2@kenny.mimuw.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!news.internetia.pl!mimuw.edu.pl!news.mimuw.edu.pl!not-for-mail
References: <bcijpt$1s1$1@kenny.mimuw.edu.pl> <slrnbere7s.5ic.t.zielonka@zodiac.mimuw.edu.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!news.internetia.pl!mimuw.edu.pl!news.mimuw.edu.pl!not-for-mail
From: Marcin Gajda <marcin.gajda@kicha.zagrycha.pl>
Newsgroups: pl.comp.lang.funkcyjne
Subject: Re: [Haskell] Lista bez powtórzeń.
Date: Mon, 16 Jun 2003 12:48:37 +0000 (UTC)
Organization: MIMUW
Lines: 10
Sender: Marcin Gajda <mg174717@zodiac.mimuw.edu.pl>
Message-ID: <bckeb5$g70$2@kenny.mimuw.edu.pl>
References: <bcijpt$1s1$1@kenny.mimuw.edu.pl> <slrnbere7s.5ic.t.zielonka@zodiac.mimuw.edu.pl>
NNTP-Posting-Host: zodiac.mimuw.edu.pl
Mime-Version: 1.0
X-Trace: kenny.mimuw.edu.pl 1055767717 16608 10.1.1.1 (16 Jun 2003 12:48:37 GMT)
X-Complaints-To: abuse@news.mimuw.edu.pl
NNTP-Posting-Date: Mon, 16 Jun 2003 12:48:37 +0000 (UTC)
User-Agent: tin/1.5.10-20011117 ("Darkcell") (UNIX) (Linux/2.4.20 (i686))
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit