13 lines
250 B
Text
13 lines
250 B
Text
#lang transd
|
|
|
|
MainModule : {
|
|
a: 1.2,
|
|
b: 0.03,
|
|
|
|
safeAdd: (λ d Double() e Double()
|
|
(ret [(decr (+ d e)), (incr (+ d e))])),
|
|
|
|
_start: (λ
|
|
(lout "(+ " a " " b ") is in the range: " prec: 20 (safeAdd a b))
|
|
)
|
|
}
|