/ integer partition

part v is f\,,v
 where f v is if 0>i then v else j
  where (i is -1+(v>1)?0)
  where (j is p,d,r)
  where (p is i#v)
  where (d is (_s%k)#k)
  where (s is +/i_v)
  where (k is -1+v@i)
  where (r is if a then a else !0)
  where a is s!k

part 5

/ partitions of n of length k

fixpart n k is f\,g(1+n-k)
 where (g x is x,(n-x)#1)
 where f v is if (#v)=i then v else a v
  where (i is (v<-1+*v)?1)
  where a v is b(amend v(1+!i)(1+v@i))
   where b v is amend v 0(n-+/1_v)

fixpart 10(4)

fixparts k n m is ,/f',(1+!m)
 where (f x is fill(drop n(take m(fixpart k x))))
 where (take m v is v,\:&m-#*v)
 where (drop n v is v@&&/'v<n)
 where fill v is v@&&/'v>0

fixparts 10(4)(3)