[過去ﾛｸﾞ] 関数型プログラミング言語Haskell Part16 (978ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

770(1): 2011/12/20(火)22:55 AAS
>>767
めっさ力技

data Pos = F | M | E deriving Show

getPos :: Eq a => [a] -> [a] -> a -> (Maybe Pos)
getPos listA listB = fmap f . (`lookup`listE) where
    listC = map (`elem` listB) listA
    listE = zip listA $ zip listC $ scanl1 (||) listC
    f (True,_)      = M
    f (False,False) = F
    f (False,True)  = E

listA = [0,1,2,3,4]
listB = [2,3,1]
x=0
main = do
 let g = getPos listA listB
 print $ g 0
 print $ g 1
 print $ g 2
 print $ g 3
 print $ g 4

---

779: 767 2011/12/21(水)21:02 AAS
>>770,771,772,778
まさかこんなに素早く返事があるとは思ってなくて
反応遅れました。すみません。
具体的なコード例までわざわざありがとうございます。
見事に誰一人としてelemIndexなんて使ってないですね……。
順序を調べる、という発想自体を捨てないと駄目だということが
よくわかりました。

>>775
個人的には770さんの例以外は見て何をしているかは
すぐ把握できました。

>>776
777さんが返してくれていますが、listAは整列とは限らないです。
listAの位置に基づいてlistBをソートすれば、listBは確かに連続
部分列になります。

というわけで、どうも皆さんありがとうございました。

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.028s