Data update
This commit is contained in:
parent
29a5eea0d4
commit
5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
|
|
@ -0,0 +1,18 @@
|
|||
func[][] ncsub seq[] s .
|
||||
if len seq[] = 0
|
||||
if s >= 3
|
||||
return [ [ ] ]
|
||||
.
|
||||
return [ ]
|
||||
.
|
||||
last = seq[$]
|
||||
len seq[] -1
|
||||
res[][] = ncsub seq[] (s + s mod 2)
|
||||
r[][] = ncsub seq[] (s + 1 - s mod 2)
|
||||
for i to len r[][]
|
||||
r[i][] &= last
|
||||
res[][] &= r[i][]
|
||||
.
|
||||
return res[][]
|
||||
.
|
||||
print ncsub [ 1 2 3 4 ] 0
|
||||
Loading…
Add table
Add a link
Reference in a new issue