コンテキストでの型の操作 Applicative型クラス:関数をコンテキスト内で使用する <$>演算子(Functor)と<*>演算子、IO
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT5(コンテキストでの型の操作)、LESSON 28(Applicative型クラス:関数をコンテキスト内で使用する)、28.5(練習問題)Q28-2の解答を求めてみる。
コード
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 - rlong2
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 = haversine <$> coordsIO1 <*> coordsIO2
newYorkIO :: IO LatLong
newYorkIO = return (40.776, -73.9691)
arkhamIO :: IO LatLong
arkhamIO = return (42.6054, -70.7829)
main :: IO ()
main = do
d <- haversineIO newYorkIO arkhamIO
print d
d <- haversineIO arkhamIO newYorkIO
print d
入出力結果(Terminal, Zsh)
% runghc sample2.hs
126.47098026383374
126.47098026383374
%