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

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