Question

Write a program to accept any four numbers and print their sum and product.

Answer 1

Answer:

main :: IO ()

main = interact go

where

go :: String -> String

go string = let

nums = map (read :: String->Int) $ take 4 $ words string

in

show [ sum nums, product nums, fromIntegral (sum nums) / 4 ]

Explanation:

I hope it's useful

Thank you