計算機科学のブログ

コンテキストでの型の操作 Applicative型クラス:関数をコンテキスト内で使用する <*>演算子や<$>演算子(Functor)を使わない場合

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 28(Applicative型クラス:関数をコンテキスト内で使用する)、28.5(練習問題)Q28-1の解答を求めてみる。

コード

type LatLong = (Double, Double)

toRadians :: Double -> Double
toRadians = (*) (pi / 180)

latLongToRads :: LatLong -> (Double, Double)
latLongToRads (lat, long) = (toRadians lat, toRadians long)

haversine :: LatLong -> LatLong -> Double
haversine coords1 coords2 =
    let (rlat1, rlong1) = latLongToRads coords1
        (rlat2, rlong2) = latLongToRads coords2
        dlat = rlat2 - rlat1
        dlong = rlong2 - rlong1
        a = sin (dlat/2)^2 + cos rlat1 * cos rlat2 * sin (dlong/2)^2
        c = 2 * atan2 (sqrt a) (sqrt (1 - a))
        earthRadius = 3961.0
    in earthRadius * c

haversineIO :: IO LatLong -> IO LatLong -> IO Double
haversineIO coordsIO1 coordsIO2 = do
    coords1 <- coordsIO1
    haversine coords1 <$> coordsIO2

-- <*>だけではなく<$>も使わない場合
haversineIO1 :: IO LatLong -> IO LatLong -> IO Double
haversineIO1 coordsIO1 coordsIO2 = do
    coords1 <- coordsIO1
    coords2 <- coordsIO2
    return (haversine coords1 coords2)

newYorkIO :: IO LatLong
newYorkIO = return (40.776, -73.9691)

arkhamIO :: IO LatLong
arkhamIO = return (42.6054, -70.7829)

main :: IO ()
main = do
    d1 <- haversineIO newYorkIO arkhamIO
    print d1
    d2 <- haversineIO1 newYorkIO arkhamIO
    print d2

入出力結果(Terminal, Zsh)

% runghc sample1.hs
207.45990294415353
207.45990294415353
%