NB. Egyptian Fraction Decomposition NB. +/1r4 1r19 1r583 1r1019084 NB. 7r23 wr =: 1!:2&2 rd =: 1!:1 NB. Simple Greedy Method, 2008/10/26 greedy =: 3 : 0 P =. y S =. '' M =. 2 while. M < 2000 do. NB. wr P, M Q =. P - 1 % x: M NB. wr Q NB. rd 1 if. Q > 0 do. P =. Q S =. S, M else. P =. P end. if. Q = 0 do. break. end. M =. M + 1 end. (1%x:S), P ) NB. 木田祐司,牧野潔夫「UBASICによるコンピュータ整数論」p.12, 日本評論社 NB. 2008/10/27 egyfrac =: 3 : 0 Q =. y S =. '' while. Q ~: 0 do. N =. >. 1 % Q S =. S, N Q =. Q - 1 x: 1 % N end. 1 % x: S )