21 lines
473 B
Text
21 lines
473 B
Text
|
Red [ "First-Class Functions - Hinjolicious" ]
|
||
|
|
|
||
|
|
; sine and cosine are natives
|
||
|
|
cube: function [x][x * x * x]
|
||
|
|
cube-root: function [x][power x (1 / 3)]
|
||
|
|
|
||
|
|
A: [sin cos cube]
|
||
|
|
B: [asin acos cube-root]
|
||
|
|
|
||
|
|
; to show the codes
|
||
|
|
demo: function [s b] [print ["^/==" s "==^/"] print mold/only b do b]
|
||
|
|
|
||
|
|
comp-func: function ['f 'g] [function [x] compose [(get f) (get g) x]]
|
||
|
|
|
||
|
|
demo "Composing functions from List A and B and calling it" [
|
||
|
|
repeat i 3 [
|
||
|
|
f: comp-func A/:i B/:i
|
||
|
|
print f 0.5
|
||
|
|
]
|
||
|
|
]
|