trusted
83
edits
m (add heading) |
m (→frame agreement operator: remove redundant line) |
||
Line 46: | Line 46: | ||
rm←r(⌊∘≢∘⍴)¨⍺ ⍵ ⍝ modified ranks; rm⍲.>(≢⍴)¨⍺ ⍵ | rm←r(⌊∘≢∘⍴)¨⍺ ⍵ ⍝ modified ranks; rm⍲.>(≢⍴)¨⍺ ⍵ | ||
lf rf←(-rm)↓¨⍴¨⍺⍵ ⍝ frames | lf rf←(-rm)↓¨⍴¨⍺⍵ ⍝ frames | ||
cf←lf{⍺<⍥≢⍵:⍺ ⋄ ⍵}rf ⍝ common frame, assuming frames agree | cf←lf{⍺<⍥≢⍵:⍺ ⋄ ⍵}rf ⍝ common frame, assuming frames agree | ||
k←{⍬≡⍵:99 ⋄ -≢⍵}cf ⍝ relative rank; asymmetry: cf≡⍬ associated with ⍤99, not ⍤0 | k←{⍬≡⍵:99 ⋄ -≢⍵}cf ⍝ relative rank; asymmetry: cf≡⍬ associated with ⍤99, not ⍤0 |