NB. partition number(fixed version) NB. written by Giichiro Suzuki NB. 24 Mar 2008 NB. * x: part_no 100 no=:3 :0 r=.<1,1+s=.(k=.0){t=.+:&.>:i.y while. y>s do. r=.r,:k)+s=.((k=.k+1){t)+{:>{:r end. ((>0:)#])L:0 y-L:0}:r ) red=:3 :0 if.y<13 do. r=.no y else. t=.((>.k%2),2)$c=.i.k=.#r=.no y p=.;(;{."1 t){r p;;((s>0)#s=.{:"1 t){r end. ) pq=:3 :0 r=.<12,12+s=.(k=.0){t=.+:&.>:1+i.b=.>.y%10 while. y>{.>{:r do. r=.r,{:r end. qq=.r-.pp=.(+:i.>.-:#r){r ((p<:y)#p=.;pp);(q<:y)#q=.;qq ) part_no=:3 :0 k=.#r=.1 2 3 5 7 11 15 22 30 42 if. y<11 do.(<:y){r else.'p q'=.pq y while.k{.h){r)-+/(<:>{:h=.red k=.k+1){r {:r=.r,s+(k e.p)-k e.q end. end. ) NB. EOF