[過去ﾛｸﾞ] 関数型プログラミング言語Haskell Part22 (1001ﾚｽ)

関数型プログラミング言語Haskell Part22 http://echo.5ch.net/test/read.cgi/tech/1364009659/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

459: デフォルトの名無しさん [] 2013/03/23(土) 12:41:58.00 ID:WFTkAEQe! 質問でも良かな? http://echo.5ch.net/test/read.cgi/tech/1364009659/459

461: デフォルトの名無しさん [] 2013/03/23(土) 12:42:00.00 ID:WFTkAEQe! ありがとう。最近haskellを始めた。 haskell99の1~10をやっているのだが、9の問題で詰まった。 duplicateSet :: (Eq a) => [a] -> [a] duplicateSet list = case (list) of [] -> [] (x:y:xs) | x == y -> y : duplicateSet (x:xs) | otherwise -> [x] deleteSet :: (Eq a) => [a] -> [a] -> [a] deleteSet originaList set = case (originaList) of (x:xs) -> case (set) of (y:ys) | x == y -> deleteSet xs ys | otherwise -> error"Something wrong" [] -> (x:xs) _ -> error"Need at least one element" pack :: (Eq a) => [a] -> [[a]] pack list = case (list) of [] -> [[]] (x:xs) -> (duplicateSet list) : pack (deleteSet list (duplicateSet list)) http://echo.5ch.net/test/read.cgi/tech/1364009659/461

463: デフォルトの名無しさん [] 2013/03/23(土) 12:42:02.00 ID:WFTkAEQe! 失敬。例えば、 *Main> pack [1,1,1,2,2,3,4,4] [[1,1,1],[2,2],[3],[4,4],[]] があったとき、どうすれば最後の[]を消せるのだろうか？ 元をちょこっと書き足してみたのだが。 duplicateSet :: (Eq a) => [a] -> [a] duplicateSet list = case (list) of [] -> [] [x] -> [x] (x:y:xs) | x == y -> y : duplicateSet (x:xs) | otherwise -> [x] deleteSet :: (Eq a) => [a] -> [a] -> [a] deleteSet originaList set = case (originaList) of [] -> [] (x:xs) -> case (set) of (y:ys) | x == y -> deleteSet xs ys | otherwise -> error"Something wrong" [] -> (x:xs) -- _ -> error"Need at least one element" http://echo.5ch.net/test/read.cgi/tech/1364009659/463

466: デフォルトの名無しさん [] 2013/03/23(土) 12:42:05.00 ID:WFTkAEQe! なぜ、[[]]が[]なのだろう？ [a] : [[]] -> [[a], ... []]にならないのだろうか？ [a]:[]はエラーな気がするのだが。 http://echo.5ch.net/test/read.cgi/tech/1364009659/466

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.038s