rhaseven7h · July 21, 2016 08:43
diff --git a/a_kundu_and_bubble_wrap.hs b/a_kundu_and_bubble_wrap.hs
 solve n m = sum times
    where oSize = fromIntegral $ n * m
          oIndices = [ 1 .. oSize ]
          singleProb = (\x -> x / oSize)
          singleTime = (\n -> 1 / (singleProb n))
          times = map singleTime oIndices
          
 main = do
    raw <- readFile "input.txt"
    let inStrArr = words $ head $ lines raw
    let toInt = \o -> read o :: Int
    let [n, m] = map toInt $ inStrArr
    putStrLn . show $ solve n m
diff --git a/input.txt b/input.txt
 2 2
diff --git a/output.txt b/output.txt
 8.3333333333333
	solve n m = sum times
	where oSize = fromIntegral $ n * m
	oIndices = [ 1 .. oSize ]
	singleProb = (\x -> x / oSize)
	singleTime = (\n -> 1 / (singleProb n))
	times = map singleTime oIndices

	main = do
	raw <- readFile "input.txt"
	let inStrArr = words $ head $ lines raw
	let toInt = \o -> read o :: Int
	let [n, m] = map toInt $ inStrArr
	putStrLn . show $ solve n m