6 lines
330 B
APL
6 lines
330 B
APL
|
standard ← ∊∘(⌊\¨⊢⊂⍳∘≢)∘(1,2≠/⊢)∘(1⌷[2]⊢),⊢
|
|||
|
|
modified ← ∊∘(⌈\∘⌽¨⊢⊂⍳∘≢)∘(1,2≠/⊢)∘(1⌷[2]⊢),⊢
|
|||
|
|
dense ← (+\1,2≠/1⌷[2]⊢),⊢
|
|||
|
|
ordinal ← ⍳∘≢,⊢
|
|||
|
|
fractional ← ∊∘((≢(/∘⊢)+/÷≢)¨⊢⊂⍳∘≢)∘(1,2≠/⊢)∘(1⌷[2]⊢),⊢
|