All pastes #404739 Raw Edit

Untitled

public text v1 · immutable
·published 2007-03-21 05:57 UTC
rendered paste body
prompt s = putStrLn s
           readLn

main = do base <- prompt "The base? "
          height <- prompt "The height? "
          putStrLn $ "The area of that triangle is " ++ show (base * height / 2)