2016 Update

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

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

Task/Knuths-algorithm-S/J/knuths-algorithm-s-2.j

@@ -7,13 +7,13 @@ run=:3 :0
 )
 
    (~.,._1 + #/.~) (i.10),,D=:run"0 i.1e5
-0 30099
-1 29973
-2 29795
-3 29995
-4 29996
-5 30289
-6 29903
-7 29993
-8 30215
-9 29742
+0 40119
+1 40050
+2 40163
+3 57996
+4 42546
+5 40990
+6 38680
+7 36416
+8 33172
+9 29868