You could do something like this: echo@".@([echo@,~&' ') ']A' ]A 1 1 1 1 1 0 0 1 1 0 1 0 1 0 1 1 0 0 0 0 1 0 0 0
Give the verb a name if you want to use it often. -- Raul On Thu, Sep 24, 2015 at 11:10 PM, Linda A Alvord <[email protected]> wrote: > Echo works. It is strange to see only the result without the expression > which created it. It will take a little time to get used to not seeing each > result as you do in jqt and JHS. It is nice to know there is a way to see > the result. > > Linda > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Raul Miller > Sent: Thursday, September 24, 2015 10:39 PM > To: Beta forum > Subject: Re: [Jbeta] a color cube with 1 small problem for android > > echo A > or > smoutput A > > Thanks, > > -- > Raul > > > On Thu, Sep 24, 2015 at 10:17 PM, Linda A Alvord > <[email protected]> wrote: >> This now works in jqt, JHS and android. How can I make the result of ]A >> show when I look at the code in "window" after the final image has > appeared? >> >> load 'viewmat' >> >> N=:30 >> >> f=: 13 :'<.(i.y)*255%<:y' >> >> ]A=:|.1 0 2{"1 #:i.8 >> >> D=:(,A)*"0 1 ($f N)#255 >> >> E=:(|.f N) 5 6 10 13 15 20}D >> >> F=:(<"2)|:"2(8,3,N)$,E >> >> erase names<'W Y C G M R B V' >> >> (W`Y`C`G`M`R`B`V)=:(i.8){F >> >> V=:((N^2),3)$0 >> >> BAC=:((N^2),3)$,M<."1/Y >> >> LEF=:((N^2),3)$,M<."1/C >> >> TOP=:((N^2),3)$,C<."1/Y >> >> RIG=:((N^2),3)$,R+"1/G >> >> FACE=:((N^2),3)$,G+"1/B >> >> BASE=:((N^2),3)$,R+"1/B >> >> PALS=:V,BAC,LEF,TOP,FACE,RIG,BASE >> >> erase names 'H,I,J' >> >> (H`I`J)=:R=:' ';'|. ';'|:|.' >> >> PAT=:12 4$H,I,H,J,H,H,H,H,J,H,I,H >> >> K=:(N^2)*0 1 0 2 3 0 0 4 5 0 6 0 >> >> L=:K+"0>12#<i.N,N >> >> O=:PAT,"1 (":,.i.12),"1'{L' >> >> ALL=:,./;"1|:4 3$<"2 ".":"1 O >> >> PALS viewmat ALL >> >> >> >> Linda >> >> ---------------------------------------------------------------------- >> 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
