Here's a spacious version of the same idea.

   ascmap=: '-'&$: : (4 : 'y,|.|:x#~"0+/\1 _1 0{~y i.~40 41{a.')

   ascmap S
[: (#~ (0 ~: 1&{"1))@; <@(0&{ ,. 1&{ ([EMAIL PROTECTED] ,. (] +//. ["0) ,. [ * 
[EMAIL PROTECTED]) 2&}.)"1
                                              -----------                     
       -----------                   --------------------------------         
   ----------------      --------------------------------------------------   

   ascmap 5!:5<'assert'
0 0"_ $ 13!:8^:((0: e. ])`(12"_))
                --------  -----  
               ----------------- 

   ascmap 5!:5<'table'
1 : (':'; '((([EMAIL PROTECTED])5!:5<''u'');,.y),.({.;}.)":x,y u/x')~
             -----------                                      
            -----------------------                           
           -----------------------------   ------             
    --------------------------------------------------------  

   ascmap 5!:5<'toCRLF'
2&}.@:;@:((13{a.)&,&.>@<;.1@((10{a.)&,)@toJ)
                             ------         
          ------            ----------      
         ---------------------------------- 

   ascmap 5!:5<'deb'
#~ (+. (1: |. (> </\)))@(' '&~:)
              ------            
       --------------           
   -------------------  ------- 

   load'printf'
   ascmap 5!:5<'formatS_jprintf_'
;:^:_1@:(":&.>)^:(32&=@(3!:0)) :((((<. #) {. ])~ 2&{)~ 
;:^:_1@:(":&.>)^:(32&=@(3!:0)))
                                   -----                                        
      
                                  ------------                                
-----   
                       -----     -------------------           ------   
------------  
        ------   ------------   
----------------------------------------------------- 




> Roger Hui <[EMAIL PROTECTED]> wrote:
> 
>    map=: 3 : 't ,: 1":+/\(''(''=t)+_1}.0,-'')''=t=. 5!:5 y'
>    f=: [: (#~ (0 ~: 1&{"1))@; <@(0&{ ,. 1&{ ([EMAIL PROTECTED] ,. (] +//. 
> ["0) ,. [ * [EMAIL PROTECTED]) 
> 2&}.)"1
> 
>    map <'f'
> [: (#~ (0 ~: 1&{"1))@; <@(0&{ ,. 1&{ ([EMAIL PROTECTED] ,. (] +//. ["0) ,. [ 
> * [EMAIL PROTECTED]) 2&}.)"1
> 000111122222222222210000011111111111122222222233333333333322222222222211111100
> 
> Areas of equal depths should be joined together, unless separated 
> by an area of lesser depth.
> 
> Works for paren nesting of depth up to 9.
> 
> 
> 
> ----- Original Message -----
> From: Oleg Kobchenko 
> Date: Tuesday, July 29, 2008 21:05
> Subject: Re: [Jgeneral] RE: tracing tacit definition execution
> To: General forum 
> 
> ...
> > Here is a compact way to graphically box nested expressions,
> > which preserves compact linear form. You can easily doodle it 
> > manually, while visually scanning the structure.
> > 
> >  http://www.jsoftware.com/jwiki/OlegKobchenko/Map_Display
> > 
> > By its likeness, it is called Map Display.
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm



      
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to