ArrayMac > Function display > DimSet

    ∇ R←D DimSet R;T                                                            
[1]  ⍝∇851021/920604 GLi --(MATX MGMT)-- SET DIMENSIONS                         
[2]  ⍝:861018: /RAM/ "~0∊⍴X" -→ "1"                                             
[3]  ⍝. ⍴(4 DimSet 2 3⍴1)≡ 2 3 1 1                                              
[4]  ⍝. ⍴(4 DimSet 2 3⍴1)≡ 1 1 2 3                                             
[5]  ⍝. ⍴(2 DimSet '')≡0 0                                                     
[6]   →((|D)=⍴⍴R)/0 ⋄ T←(|D)/1 ⋄ R←(D↑D↓T,(⍴R),T)⍴R                             
    ∇                                                                           
                                                                                

Page served at: Wed, 08 Apr 2020 05:55:40 AST.