Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: count function

From: arolls:bigpond:au at: 5-Jul-2001 21:52

Here's another way: count: func [s t /local n][ n: 0 while [s: find/tail s t][n: n + 1] ]