Your code is not only more efficient, it's also more elegant. I admire the clean code you produce and the way you refine code of others. This level of coding will be one of my goals in mastering J.
R.E. Boss > -----Oorspronkelijk bericht----- > Van: [EMAIL PROTECTED] [mailto:programming- > [EMAIL PROTECTED] Namens Raul Miller > Verzonden: dinsdag 29 januari 2008 22:33 > Aan: Programming forum > Onderwerp: Re: [Jprogramming] Perfect powers > > On 1/29/08, R.E. Boss <[EMAIL PROTECTED]> wrote: > > pp2=: 3 : '1,/:~~.;<@(^~ 2+i.@<:)/"1 (](],.<[EMAIL PROTECTED]:~) 2([EMAIL > > PROTECTED]@<:) 2<[EMAIL PROTECTED]) > y' > > A variation on this approach which requires slightly less space: > > num2=:- i.@<: > pp3=: 1, /:[EMAIL PROTECTED]@;@((] (^~ num2)&.> <[EMAIL PROTECTED]:~) 2 > num2@<[EMAIL PROTECTED] ]) > > 10 ts 'pp2 2000000' > 0.00050174 91712 > 10 ts 'pp3 2000000' > 0.000478301 78848 > > Or, if you would like to avoid ~ and hooks: > pp4=: 1, /:[EMAIL PROTECTED]@;@((2 num2@<[EMAIL PROTECTED] ]) ([ ([EMAIL > PROTECTED] ^ [)&.> <[EMAIL PROTECTED]:) ]) > > > -- > Raul > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
