276 (cAO -: C) Y=:([EMAIL PROTECTED]&0) 4000 1 ts '276 cAO Y' 0.12878946 1.1752051e8
ts '276 C Y' 3.9606751 6.9000077e8 R.E. Boss > -----Oorspronkelijk bericht----- > Van: [EMAIL PROTECTED] [mailto:programming- > [EMAIL PROTECTED] Namens Brian Schott > Verzonden: zaterdag 10 mei 2008 23:05 > Aan: Programming forum > Onderwerp: RE: [Jprogramming] Outer products problem > > The one liner below seems to work, but time- and > space-wise it is slightly inferior to RE Boss's cAO. Though, > in my opinion, it is more direct. > > NB. word wrap problem > > C =: 4 : '(,~x)$(/:@;@( [: </. i.)@,~x){;<@(%&(1+x-~#y))@((1+x- > ~#y)+/\])/.(*"0 1 |.) y' > > ts '276 cAO i.600' > 0.226437 1.16933e7 > ts '276 C i.600' > 0.378538 1.198e7 > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
