efract←{        ⍝ Egyptian fractions: Fibonacci-Sylvester algorithm

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

        rp|qs(q-r)÷p
        (⍺,s+1)(p-r)(q×s+1)
    }⍺ ⍵
}
code_colours

test script

Back to: notes

Back to: Workspaces