A - 動物園 子供がいくらで大人がいくらなので団体の入場料はという問題。問題文にある通りに計算すればよい。 main :: IO () main = getContents >>= print . solve . map read . words solve :: [Integer] -> Integer solve [ a, b, c, k, s, t ] = a * s …