- 1 名前：デフォルトの名無しさん [04/02/10 22:16]
- Haskellの公式HP
www.haskell.org/
日本語サイト
www.sampou.org/cgi-bin/haskell.cgi
www.teu.ac.jp/kougi/koshida/Prog6/index.html
過去ログ、関連スレは>>2-5
- 70 名前：デフォルトの名無しさん mailto:sage [04/02/22 11:53]
- もうひとつ素直な解を。
# q n = filter ((==n).length) . k n
# where k _ [] = []
# k n xs = take n xs : k n (tail xs)
どうだろう。
- 71 名前：(define (´∀｀) 'ﾏﾀｰﾘ) mailto:sage [04/02/22 12:31]
- f n xs = take ((length xs)-n+1) [take n x | x <- tails xs]
f n xs = filter ((==n).length) [take n x | x <- tails xs]
