Yes.. I think mine needs a scan added, so that only the first + on a line is retained.
This would add maybe a dozen characters to the line. -- Raul On Mon, Aug 17, 2020 at 10:49 AM 'Michael Day' via Programming < [email protected]> wrote: > Late to the party - I had a look at the problem after the correspondence > > closed, and have only > > just got home to my own wifi. > > I developed a few functions, tpxxxmd, not pretty in themselves, which > > attempt a number of variations, > > some using box characters, 19 22 25 26 { a. > > Unfortunately, I noticed that Raul's one-liner can show some vertical > > connectors which aren't there. > > "xash's" function is ok for the same example: > > > > (tpmd; tplbmd; tpboxmd; tpboxmdb; pt; raul) 0 1 2 3 3 1 NB. display > > is ok at send time! > > +-------+-------+-------+----+-------+--------+ > > |o |o |o |o |o |-o | > > ||-o |+-o |├─o |├o ||-o | |-o | > > || |-o || +-o |│ └─o |│└o || +-o | | +-o | > > || |-o|| +-o|│ ├─o|│ ├o|| |-o| | | |-o| > > || |-o|| +-o|│ └─o|│ └o|| +-o| | + +-o| > > ||-o |+-o |└─o |└o |+-o | +-o | > > | | | | | | | > > +-------+-------+-------+----+-------+--------+ > > > > tplbmd (lb = "elbow"!) renders all bends/elbows as "+" which seems > > reasonable, but perhaps > > it is better to stick to "|" when there are further daughters at that > > level, as Raul and xash do. > > Anyway, I did distinguish these cases with the box character versions. > > > > Cheers, > > > > Mike > > > > > > On 07/08/2020 23:21, Raul Miller wrote: > > > Alternative (slightly more compact) implementation of tv: > > > > > > tv=: (0 = {.) *./@, (0 < {:), 1 >: +/\inv > > > > > > Meanwhile, this is probably a bit long (almost 100 characters) to be > > > called a one line implementation, but it seems to be in the right > > > ballpark: > > > > > > ;"1(' - ',&.>' o+|'){~(+3*_1 1&E.)"1&.|:(* > > >> ./\.@:*)0,~2:`(}.@((i:,.]-1:) ~.))`((1,~]#_1:)"0)}~d > > > -o > > > |-o > > > | |-o > > > | +-o > > > |-o > > > +-o > > > |-o > > > +-o > > > +-o > > > > > > > > > I hope this helps, > > > > > > > -- > > 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
