[REBOL] Functional programming in REBOL Re:

[jeff]

           John C.  Your code is neato. 
 
> ;; Task  1 compute the product  of the first 10 odd numbers
> task1: [accumulate :* 1
>                  head-elements 10 filter :odd?  enumerate-interval 1
>                  20]


                   I didn't find the time for the others, but here
                   was my solution for the above: 

use [pod][
        do pod: func [x][
            any [all [zero? x 1] all [odd? x x * pod x - 1] pod x - 1]
    ] 20
]


        -jeff