ArrayMac > Function display > ENCTofWikiTable

     ∇ r←ENCTofWikiTable x;x01;xMNL                                                                          
[1]   ⍝∇ 20140523/20140601 ra⌈ --()--                                                                        
[2]                                                                                                          
[3]    xMNL←{{1↓SSofENC ⍵}{{(⍬⍴⍵)∊'|!'}⍵}{(⍺⍺ ⍵)qPENCLOSE ⍵}⍵}                                             
[4]    x01←{{'|-'≡2↑⍵:2 ⋄ (⍬⍴⍵)∊'|!':1 ⋄ 0}{(⍺⍺ ⍵)↓⍵}1↓[2]↑{{'|-'≡2↑⍵:1 ⋄ 0}2↑⍵}{(⍺⍺ ⍵)qPENCLOSE ⍵}xMNL ⍵}
[5]                                                                                                          
[6]    :If ALP x                                                                                             
[7]        x←1↓qTCNL ENCofSS x                                                                              
[8]    :EndIf                                                                                                
[9]    r←x01 x                                                                                               
     ∇                                                                                                       

Page served at: Wed, 08 Apr 2020 05:31:22 AST.