|
Application: Monadic Comma-Bar
2 3 4⍴⍳24
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15
16 17 18 19
20 21 22 23
⍪ 2 3 4⍴⍳24
0 1 2 3 4 5 6 7 8 9 10 11
12 13 14 15 16 17 18 19 20 21 22 23
R ← ⍪Y (Dyalog) Z ← ⍪B (ISO Standard)
commabar←{((1↑(⍴⍵),1),×/1↓⍴⍵)⍴⍵}
commabar 2 3 4⍴⍳24
0 1 2 3 4 5 6 7 8 9 10 11
12 13 14 15 16 17 18 19 20 21 22 23
(commabar 'a') ≡ ⍪ 'a'
1
|