I share this talent: 2 is not adjacent to 3 was what I meant.
R.E. Boss > -----Original Message----- > From: Programming [mailto:programming-boun...@forums.jsoftware.com] > On Behalf Of Raul Miller > Sent: donderdag 25 augustus 2016 23:21 > To: Programming forum <programm...@jsoftware.com> > Subject: Re: [Jprogramming] determine the cycle > > I am more than willing to believe that I have been careless and made a > mistake. I'm actually pretty talented at making mistakes. > > That said, it looks to me as if 2 is adjacent to 4: > > 2{edges > 2 4 > > Is there something about this that I am missing? > > Thanks, > > -- > Raul > > On Thu, Aug 25, 2016 at 2:19 PM, R.E. Boss <r.e.b...@outlook.com> wrote: > > You should swap the first two numbers of your solution, since 2 is not > adjacent to 4. > > > > It's more or less what I came up with, be it explicit. > > ;{.(3 :('''x y''=.y'; '(y-.t{y);~ x,({:x)-.~y{~t=.1 i.~ y e.~"1 > > {:x'))^:(#@>@{:) ({.;}.) edges > > 1 2 4 5 6 7 8 9 10 11 12 13 24 25 26 23 16 15 14 22 21 20 19 18 17 3 1 > > > > > > R.E. Boss > > > > > >> -----Original Message----- > >> From: Programming [mailto:programming- > boun...@forums.jsoftware.com] > >> On Behalf Of Raul Miller > >> Sent: donderdag 25 augustus 2016 15:36 > >> To: Programming forum <programm...@jsoftware.com> > >> Subject: Re: [Jprogramming] determine the cycle > >> > >> Oops, I represented the vertices incorrectly ({."1 would only be > >> valid if the edges were directed). > >> > >> Here's a fix: > >> > >> ~., ((] , -. {~ {.@I.@(-. +./"1@e. {:@]))^:(<:@#@[) ,:@{.) edges > >> 1 2 3 17 18 19 20 21 22 14 15 16 23 26 25 24 13 12 11 10 9 8 7 6 5 4 > >> > >> This is the same core implementation, but this should show the actual > >> vertices being traversed in the order they are encountered. > >> > >> Thanks, > >> > >> -- > >> Raul > >> > >> > >> On Thu, Aug 25, 2016 at 8:36 AM, 'Jon Hough' via Programming > >> <programm...@jsoftware.com> wrote: > >> > Raul, > >> > > >> > your solution seems to miss out some vertices and duplicates others. > >> > > >> > > >> > -------------------------------------------- > >> > On Thu, 8/25/16, Raul Miller <rauldmil...@gmail.com> wrote: > >> > > >> > Subject: Re: [Jprogramming] determine the cycle > >> > To: "Programming forum" <programm...@jsoftware.com> > >> > Date: Thursday, August 25, 2016, 9:07 PM > >> > > >> > Best I can come up with > >> > is > >> > > >> > {."1 > >> > ((] , -. {~ {.@I.@(-. +./"1@e. {:@]))^:(<:@#@[) ,:@{.) edges > >> > 1 3 17 18 18 20 20 21 22 14 15 16 23 > >> > 26 25 13 12 11 11 10 9 7 6 5 4 2 > >> > > >> > Change {.@I. to {:@I. if you want things in the other order. > >> > > >> > -- > >> > 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 > >> --------------------------------------------------------------------- > >> - For information about J forums see > >> http://www.jsoftware.com/forums.htm > > ---------------------------------------------------------------------- > > For information about J forums see > http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
