aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Knuths-algorithm-S/J/knuths-algorithm-s-1.j
View file

@ -1,3 +1,8 @@
s_of_n_creator=: 1 :0
ctx=: conew&'inefficient' m
s_of_n__ctx
)
coclass'inefficient'
create=:3 :0
N=: y
@ -7,19 +12,13 @@ coclass'inefficient'
s_of_n=:3 :0
K=: K+1
if. N>#ITEMS do.
if. N>:#ITEMS do.
ITEMS=: ITEMS,y
else.
if. (N%K)>?0 do.
ITEMS=: (((i.#ITEMS)-.?N){ITEMS),y
ITEMS=: ((<<<?N){ITEMS),y
else.
ITEMS
end.
end.
)
s_of_n_creator_base_=: 1 :0
ctx=: conew&'inefficient' m
s_of_n__ctx
)