15 lines
335 B
Plaintext
15 lines
335 B
Plaintext
double local fn FunctionF( x as double )
|
|
end fn = x + 1.5
|
|
|
|
double local fn FunctionG( x as double )
|
|
end fn = x * x
|
|
|
|
double local fn Compose( f as ptr, g as ptr )
|
|
double def fn ff(x1 as double) using f
|
|
double def fn fg(x2 as double) using g
|
|
end fn = fn ff(fn fg(2.5))
|
|
|
|
print fn Compose( @fn FunctionF, @fn FunctionG )
|
|
|
|
HandleEvents
|