ひどくはないけど。役とのすり合わせというかそういうのは色々あるなあなどと思う。

効率が悪いので「HaskellでSICP」はしばらくお休みします。

1.3.3 search を書いてみる。 search :: (Fractional a, Ord a) => (a -> a) -> a -> a -> a search f neg pos = let mid = average neg pos in if closeEnough neg pos then mid else case signum (f mid) of 1 -> search f neg mid -1 -> search f mid pos…