4 lines
152 B
APL
4 lines
152 B
APL
|
farey←{{⍵[⍋⍵]}∪∊{(0,⍳⍵)÷⍵}¨⍳⍵}
|
|||
|
|
fract←{1∧(0(⍵=0)+⊂⍵)*1 ¯1}
|
|||
|
|
print←{{(⍕⍺),'/',(⍕⍵),' '}⌿↑fract farey ⍵}
|