Data update

This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions

View file

@ -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