|
x← 3 1 4 1 5 9
'.⎕'[x∘.>⍳⌈/x]
⎕⎕⎕......
⎕........
⎕⎕⎕⎕.....
⎕........
⎕⎕⎕⎕⎕....
⎕⎕⎕⎕⎕⎕⎕⎕⎕
|
|
⍳ ⌈/x
0 1 2 3 4 5 6 7 8
x ∘.> ⍳⌈/x
1 1 1 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0
1 1 1 1 0 0 0 0 0
1 0 0 0 0 0 0 0 0
1 1 1 1 1 0 0 0 0
1 1 1 1 1 1 1 1 1
|
— K.W. Smillie,
STATPACK, University of Alberta, 1968.
|