[過去ﾛｸﾞ] 関数型プログラミング言語Haskell Part32 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

841(2): デフォルトの名無しさん [sage] 2019/12/12(木) 11:38:57.75 ID:y6+ig4ik(1/3) AAS
>>840
はい。 f,g はトップレベルではなくIOアクションの中で定義しても大丈夫です。

IORefを使わなきゃ無理かな、と思ってたんだけど、これは目から鱗でした。
cached = pure
でいいんだよね？単にモナド一枚かぶせるだけで計算のキャッシュになるなんて、
今年一番のオドロキですわ

---

843: デフォルトの名無しさん [sage] 2019/12/12(木) 15:32:55.96 ID:y6+ig4ik(2/3) AAS
>>842
うーん指摘の通りだった。
>>841 のやり方ではIOアクション cachedHeavy を簡約で実行した時点で heavy が計算される。
f や g の中でそれぞれ実行したなら都度重い計算が走ってしまう。
i <- cachedHeavy をその前に実行するなら一度で済むが、遅延の要件「f,g のどちらかが呼ばれるまではしたくない」
を満たさない。

---

844: デフォルトの名無しさん [sage] 2019/12/12(木) 15:46:44.83 ID:y6+ig4ik(3/3) AAS
つまり…　こんな感じでいいのかしら

cached :: IO a -> IO (IO a)
cached f = do
　r <- newIORef Nothing
　pure $ do
　　c <- readIORef r
　　case c of
　　　Nothing -> do
　　　　ts <- f
　　　　modifyIORef r . const . Just $ ts
　　　　pure ts
　　　 Just ts -> pure ts

＞ x <- cached $ print "heavy" >> pure 42
＞ x
"heavy"
42
＞ x
42

---

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

---

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

---

ぬこの手 ぬこTOP 0.042s