• see also:
• series//counting values [1/2]
• · unique//counting series values [1/2]
• || [help]

[REBOL] Re: count function

From: chris:langreiter at: 5-Jul-2001 13:03

count: func [x y /local n] [
    n: 0
    while [not = none find x y] [
        n: n + 1
        x: next find x y
        ]
    n
    ]

should do the trick for

count [a b c a z z] 'a
count "boomboxxbox" "box"

1 · [2] · 3 · 4 · 5 · 6 · 7 · 8 · See whole thread