tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Pythagoras.scl

   1 import "JavaBuiltin" as Java
   2
   3 infixl 7 (*)
   4 infixl 6 (+)
   5
   6 (+) :: Double -> Double -> Double
   7 (+) = Java.dadd
   8 (*) :: Double -> Double -> Double
   9 (*) = Java.dmul
  10
  11 importJava "java.lang.Math" where
  12     sqrt :: Double -> Double
  13     sin :: Double -> Double
  14     cos :: Double -> Double
  15
  16 square x = x * x
  17
  18 length x y = sqrt (square x + square y)
  19
  20 pythagoras a = length (cos a) (sin a)
  21
  22 main = pythagoras 2.0
  23 --
  24 1.0