関数型プログラミング言語Haskell Part3
■ このスレッドは過去ログ倉庫に格納されています
0047デフォルトの名無しさん
NGNGなるほど。
lengthを軽々しく使わないほうがいいのかもな。
じゃあ、こんなので
j num = map (take num) . filter (biggerOrEqual num) . tails
biggerOrEqual :: Int -> [a] -> Bool
biggerOrEqual 0 _ = True
biggerOrEqual n [] = False
biggerOrEqual n (x:xs) = biggerOrEqual (n-1) xs
■ このスレッドは過去ログ倉庫に格納されています