| http://www.w3.org/ns/prov#value | - We can easily go further, in particular by allowing s and p to pass level specifications.(1)s[v_,b_,n_:Infinity]:= Cases[Thread[{v,b}], {x_,True}:>x,1,n]s[v,b] {82, 7}s[v,b,1] {82}(2)p[v_, pattern_, n_:Infinity] := Position[v, pattern, 1, n]p[{1,2,1,2,2,1}, 1] {{1}, {3}, {6}}p[{1,2,1,2,2,1}, 1, 2] {{1}, {3}} Allan Hayeshay@haystack.demon.co.ukhttp://www.haystack.demon.co.uk
|
