13 lines
128 B
Text
13 lines
128 B
Text
f:{&{(+/y# x)=+/(y+1)_x}[x]'!#x}
|
|
|
|
f -7 1 5 2 -4 3 0
|
|
3 6
|
|
|
|
f 2 4 6
|
|
!0
|
|
|
|
f 2 9 2
|
|
,1
|
|
|
|
f 1 -1 1 -1 1 -1 1
|
|
0 1 2 3 4 5 6
|