Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,18 @@
|
|||
[ 0 swap
|
||||
behead swap
|
||||
witheach
|
||||
[ 2dup > iff
|
||||
[ nip nip
|
||||
i^ 1+ swap ]
|
||||
else drop ]
|
||||
drop ] is least ( [ --> n )
|
||||
|
||||
[ [] swap
|
||||
dup size times
|
||||
[ dup least pluck
|
||||
swap dip join ]
|
||||
drop ] is ssort ( [ --> [ )
|
||||
|
||||
[] 20 times [ 10 random join ]
|
||||
dup echo cr
|
||||
ssort echo cr
|
||||
Loading…
Add table
Add a link
Reference in a new issue