6 lines
114 B
Text
6 lines
114 B
Text
def (pos x (seq | (head ... tail)) n)
|
|
default n :to 0
|
|
if seq
|
|
if (head = x)
|
|
n
|
|
(pos x tail n+1)
|