m10a=: [: +/ <[EMAIL PROTECTED]&5^:(>:@i.@>.@(5&^.)`])
----- Original Message ----- From: Arie Groeneveld <[EMAIL PROTECTED]> Date: Friday, August 24, 2007 9:22 Subject: [Jprogramming] Trailing 0's To: Programming forum <[email protected]> > j4F&FWIW > > > Calculating trailing zero's of factorial (n) > First an intuitive version: > > m10i=: 13 : '{. I. 0= ''0''= |. ": ! x: y' > > And a fast one if needed: > > m10=: [: +/ [: }. ([: <. 5%~])^:(0&<)^:a: > > > (m10i 5000) -: m10 5000 > 1 > ts 'm10i 5000x' > 0.299809 453376 > > ts 'm10 5000x' > 6.4e_5 2944 > > m10i 5000 > 1249 > > m10 5000 > 1249 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
