rational←{⎕ML←1         ⍝ Rational approximation to real ⍵.
    ⍺←⎕CT ⋄ ⎕DCT ⎕CT←⍺  ⍝ default comparison tolerance.
    ↑⍵ 1÷⊂1∨⍵           ⍝ rational pair: ⍵≡÷⌿rational ⍵.
}

code_colours

test script

Back to: notes

Back to: Workspaces