View/Edit #6397:inlist

Name(s): inlist

1: ":inlist(list,value)"
2: "Find out how many times 'value' appears in a 'list'."
3: {check, find} = args
4: found = 0
5: for x in (check)
6:   x == find && (found = found + 1)
7: endfor
8: return found
9: "Last modified by James (#6397) on Mon Aug 10 15:53:10 1998 EDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: James (#6397)

You are not logged in.