[REBOL] Re(3): newbie!?

From: arolls:bigpond:au at: 2-Dec-2000 0:31

How about this?

n-or-more: func [b n][
    unique head repeat n n - 1 [
        foreach i unique b [remove find b i]
    ]
]

Use like this:

>> expl: [1 2 1 3 1 2]
>> n-or-more expl 3
== [1]

This means 1 occurs 3 times or more in the original.
Note that it modifies the expl block.
Also, n should be greater than 1. :)

Anton.

1 · 2 · 3 · 4 · 5 · 6 · 7 · [8] · 9 · 10 ... 16 · 17 · 18 · 19 · 20 · See whole thread