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