Shaws solution is superior in every respect, more elegant, faster and leaner.
A=:'CTGGTTGAT','GTAGTCATA','CATGTCTAA','TCGAAAGTT',:'CCGGAGAAG' B=:'TAGT' ts' AA findinRows_ML BB'[AA=: 500 $,:A [BB=:500$B 1.7589716 4.0105395e8 ts' AA findinRows_SH BB' 0.13684443 33720960 1.7589716 4.0105395e8 % 0.13684443 33720960 12.853805 11.893314 AA (findinRows_ML (-: |:) findinRows_SH) BB 1 R.E. Boss > -----Oorspronkelijk bericht----- > Van: [email protected] [mailto:programming- > [email protected]] Namens Viktor Cerovski > Verzonden: vrijdag 19 augustus 2011 14:24 > Aan: [email protected] > Onderwerp: Re: [Jprogramming] Search for ordered letters within lines of > matrix > > > > Ric Sherlock wrote: > > > > Update! > > Ewart Shaw sent me this version which looks to be nicer in all respects. > > > > findinRows=: +./@((*. +./\.)/@|:@(=/)) > > > > On Fri, Aug 19, 2011 at 9:28 AM, Ric Sherlock <[email protected]> wrote: > >> Thanks to everyone for the interesting approaches. I enjoyed > >> dissecting the different thinking processes. > >> > >> As Marshall points out, not all the solutions will work on lists that > >> contain non-unique characters which I think is a desirable > >> characteristic. His development of Raul's approach seems to have the > >> best combination of generality, performance and simplicity. > >> > >> findinRows=: [: *@#@> [: ([ #~ (< {:))&.>/ <@I.@(=/~) > >> > > [...] > > > Shaw's solution is really nice. Let's not forget though that Marshall's is more > general. > > Straightforward simplification of the later is to replace > > ([ #~ (< {:)) > > by > > ((< {:) # [) > > > -- > View this message in context: http://old.nabble.com/Search-for-ordered- > letters-within-lines-of-matrix-tp32287342s24193p32294763.html > Sent from the J Programming mailing list archive at Nabble.com. > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
