Data update

This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions

View file

@ -1,4 +1,4 @@
let rec pow =
function
| [] -> [[]]
| x::xs -> [for i in pow xs do yield! [i;x::i]]
| x::xs -> [for i in pow xs do yield! [i;x::I]]

View file

@ -0,0 +1,5 @@
let pow xs =
let mutable subs = [[]]
for x in xs do
subs <- [for s in subs do yield! [s;x::s]]
subs

View file

@ -1 +1 @@
ps =: #~ 2 #:@i.@^ #
ps=: #~ [: #:@i. 2^#