1 import "JavaBuiltin" as Java
\r
6 (+) :: Double -> Double -> Double
\r
8 (*) :: Double -> Double -> Double
\r
11 importJava "java.lang.Math" where
\r
12 sqrt :: Double -> Double
\r
13 sin :: Double -> Double
\r
14 cos :: Double -> Double
\r
18 length x y = sqrt (square x + square y)
\r
20 pythagoras a = length (cos a) (sin a)
\r
22 main = pythagoras 2.0
\r