ArrayMac > Function display > WikiTableofENCT

     ∇ r←{y}WikiTableofENCT x;expF                                                               
[1]   ⍝∇ 20131205/20131209 ra⌈ --()--                                                            
[2]   ⍝ r←1↓SSofENC'{| class="wikitable"' '|-' '|1 1' '|1 2' '|-' '|2 1' '|2 2' '|}'             
[3]                                                                                              
[4]    expF←{                                                                                    
[5]        ⍺←0 0                                                                                 
[6]        cellLeader←(⍴⍵)⍴'!'                                                                   
[7]        _←(⍺↓cellLeader)←'|'                                                                  
[8]        1↓SSofENC'{| class="wikitable"' '|}'{l r←⍺ ⋄ l lk ⍵,⊂r},'|-'∘{⍺ lk ⍵}ofE cellLeader,⍵
[9]    }                                                                                         
[10]   :If ⎕NC'y'                                                                               
[11]       r←y expF x                                                                            
[12]   :Else                                                                                     
[13]       r←expF x                                                                              
[14]   :EndIf                                                                                    
     ∇                                                                                           

Page served at: Wed, 08 Apr 2020 07:09:47 AST.