efract←{        ⍝ Egyptian fractions: Fibonacci-Sylvester algorithm

    ⍬{
        (p q)←⍵÷∨/⍵
        p=1:⍺,q

        r←p|q ⋄ s←(q-r)÷p
        (⍺,s+1)∇(p-r)(q×s+1)
    }⍺ ⍵
}

code_colours

test script

Back to: notes

Back to: Workspaces