[REBOL] Encouraging Functional Programming in Rebol

[lmecir]

Hi, Rebols,

; Composition of functions:
o: func [f [any-function!] g [any-function!]] [
    func [x] reco [
        do func [f g] [
            f g x
        ]
    ] reduce [:f :g]
]

; example
>> f: func [x] [x + 1]
>> g: func [x] [x * 10]
>> fg: o :f :g
>> fg 1
== 11
>> fg 2
== 21
>> fg 3
== 31

-Ladislav