[REBOL] Who is that grouch? -or- Fun with functions! Re:(5)

[Al . Bri]

jn wrote:
>     nondiv: func [d] [func [n] [either n // d = 0 [none] [n]]]

This could be quicker as:
        nondiv: func [d] [func [n] [if n // d <> 0 [n]]]
    as 'if returns 'none when the condition is false.

Also, this:
> map: function [[catch] b [block!] f [function!] /all]
is better as:

        map: function [[catch] b [block!] f [any-function!] /all]

so you can use native! functions as well.

jn, is there a name for a generic function like:

something: function [B [block!] F [any-function!]] [Arg1] [
    Arg1: first B
    B: next B
    foreach Arg2 B [
        Arg1: F Arg1 Arg2
        ]
    Arg1
    ]

something [1 2 3 4 5] :+

>> something: function [B [block!] F [any-function!]] [Arg1] [
[        Arg1: first B
[        B: next B
[        foreach Arg2 B [
[                Arg1: F Arg1 Arg2
[                ]
[        Arg1
[        ]
>>
>> something [1 2 3 4 5] :+
== 15

For a sum function?

And if you're Grouchy, who's Sneezy, Happy, Doc,... ? :-)

Andrew Martin
ICQ: 26227169
http://members.nbci.com/AndrewMartin/
-><-