langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Function-composition/REBOL/function-composition-1.rebol
+++ b/Task/Function-composition/REBOL/function-composition-1.rebol
@ -0,0 +1,16 @@
+REBOL [
+	Title: "Functional Composition"
+	Author: oofoe
+	Date: 2009-12-06
+	URL: http://rosettacode.org/wiki/Functional_Composition
+]
+
+; "compose" means something else in REBOL, therefore I use a 'compose-functions name.
+
+compose-functions: func [
+    {compose the given functions F and G}
+    f [any-function!]
+    g [any-function!]
+] [
+    func [x] compose [(:f) (:g) x]
+]