Oops, I used <./ instead of >./ when I typed that in. Should have been:
C=: >./@(>:@i.@# >./@([ * <./\)"0 1 ]) I am not quite sure how I made that mistake - just sloppy, I guess. Thanks, -- Raul On Sat, Jun 24, 2017 at 12:57 PM, 'Mike Day' via Programming <[email protected]> wrote: > It's super fast, but doesn't seem to produce the correct result! > > Where's the typo? > > (C,c) qq > > 152 7030779 > > ts'c qq' > > 0.0159982 21632 > > ts'C qq' > > 0.0107839 289920 > > > Sorry, > > > Mike > > > > On 24/06/2017 14:04, Raul Miller wrote: >> >> Or, >> C=: <./@(>:@i.@# <./@([ * <./\)"0 1 ]) >> >> Thanks, >> > > > > --- > This email has been checked for viruses by Avast antivirus software. > https://www.avast.com/antivirus > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
