2017-05-28から1日間の記事一覧
重い… sa :: Double sa = 0.4 sb :: Double sb = 0.3 g :: (Num a, Ord a ,Fractional a) => a -> a -> a -> a -> Double g x y z w | (x+1)/(x+y+2) > (z+1)/(z+w+2) = 1 | (x+1)/(x+y+2) < (z+1)/(z+w+2) = 0 | otherwise = 0.5 p :: (Num a, Ord a ,Fract…
