Numerical integration: Difference between revisions

Content added Content deleted
(→‎{{header|Haskell}}: (Adjusted output labelling, to bracket range, and label approximation count))
m (→‎{{header|Haskell}}: (tidying string concatenations in the test))
Line 2,350: Line 2,350:
(\(s, e@(f, a, b, n)) -> do
(\(s, e@(f, a, b, n)) -> do
putStrLn $
putStrLn $
concat
justifyLeft 20 ' ' ("f(x) = " ++ s) ++
show [a, b] ++ " (" ++ show n ++ " approximations)"
[ justifyLeft 20 ' ' ("f(x) = " ++ s)
, show [a, b]
, " ("
, show n
, " approximations)"
]
mapM_
mapM_
(\(s, integration) ->
(\(s, integration) ->