cf{⍺←⊢             ⍝ Ratio of operand timings.
    a←⍺ ⋄ f←⍺⍺ ⋄ g←⍵⍵ ⋄ w←⍵ ⋄ t{⍬⍴2↓⎕AI-(⍺⍺/⍳1+⍵)⊢⎕AI}
    ÷/1{⊃∇/⍺{(1000<+/⍵)(2×⍺)⍵}({a f w}t)({a g w}t)}1
}
code_colours

test script

Back to: notes

Back to: Workspaces