On 7/1/08, R.E. Boss <[EMAIL PROTECTED]> wrote: > f3=: 3 : 'y * ($y) [EMAIL PROTECTED] 0' > f2=: 3 : 'y * ?(#y)#0' > > ts 'f2 Y' [Y=:1000 1000$9 > 0.0098060407 8402944 > ts 'f3 Y' > 0.034617353 16781696
ts=: 6!:2, 7!:2&] f2=: 3 : 'y * ?(#y)#0' f3=: 3 : 'y * ($y) [EMAIL PROTECTED] 0' Y=: 1000 1000$9 NB. J64, 3GHz CPU ts 'f2 Y' 0.00713778 8.40294e6 ts 'f3 Y' 0.0262947 1.67817e7 NB. J32, 1.8GHz CPU ts 'f2 Y' 0.0746899 1.78279e7 ts 'f3 Y' 0.0724159 1.67795e7 Note also that times can vary by more than 25% FYI, -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
