Article View: pl.comp.lang.funkcyjne
Article #366Re: [Haskell] Lista bez powtórzeń.
From: Tomasz Zielonka
Date: Mon, 16 Jun 2003 20:30
Date: Mon, 16 Jun 2003 20:30
22 lines
1492 bytes
1492 bytes
Marcin Gajda napisał: >> 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ł. Można to prościej zapisać: powt2 :: Ord a => [a] -> Bool powt2 = any (> 1) . map length . group . sort Jeśli jednak sort jest zaimplementowany przez qsort, to chyba nadal masz problem? > Pozdrawiam, pozdrawiam, tomek -- .signature: Too many levels of symbolic links
Technical Details
Message-ID:
<slrnbesa7s.2tr.t.zielonka@zodiac.mimuw.edu.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!mimuw.edu.pl!news.mimuw.edu.pl!not-for-mailReferences:
<bcijpt$1s1$1@kenny.mimuw.edu.pl> <slrnbere7s.5ic.t.zielonka@zodiac.mimuw.edu.pl> <bckeb5$g70$2@kenny.mimuw.edu.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!uw.edu.pl!mimuw.edu.pl!news.mimuw.edu.pl!not-for-mail From: Tomasz Zielonka <t.zielonka@students.mimuw.edu.pl> Newsgroups: pl.comp.lang.funkcyjne Subject: Re: [Haskell] Lista bez powtórzeń. Date: Mon, 16 Jun 2003 20:30:56 +0000 (UTC) Organization: MIMUW Lines: 22 Message-ID: <slrnbesa7s.2tr.t.zielonka@zodiac.mimuw.edu.pl> References: <bcijpt$1s1$1@kenny.mimuw.edu.pl> <slrnbere7s.5ic.t.zielonka@zodiac.mimuw.edu.pl> <bckeb5$g70$2@kenny.mimuw.edu.pl> Reply-To: t.zielonka@students.mimuw.edu.pl NNTP-Posting-Host: zodiac.mimuw.edu.pl Mime-Version: 1.0 X-Trace: kenny.mimuw.edu.pl 1055795456 30464 10.1.1.1 (16 Jun 2003 20:30:56 GMT) X-Complaints-To: abuse@news.mimuw.edu.pl NNTP-Posting-Date: Mon, 16 Jun 2003 20:30:56 +0000 (UTC) User-Agent: slrn/0.9.7.3 (Linux) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit