Same idea as Roger's: m10h =: +/[EMAIL PROTECTED]:&.(5&#.^:_1)
Henry Rich > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of John Randall > Sent: Friday, August 24, 2007 5:27 PM > To: Programming forum > Subject: Re: [Jprogramming] Trailing 0's > > Roger Hui wrote: > > m10a=: [: +/ <[EMAIL PROTECTED]&5^:(>:@i.@>.@(5&^.)`]) > > > Another approach. > > f=:[: +/ 5 = [: , [: q: [: >: i. > f 5000 > 1249 > > John > > > ---------------------------------------------------------------------- > For information about J forums see > http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
