fk{                            ⍝ Fork
    A B C←112358314594370 774156178538190 998752796516730
    ⍺←A                         ⍝ ⍺←A ⋄ fg←f←⍺⍺ ⋄ h←g←⍵⍵
    ⍺≡A:B ⍺⍺ ⍵(⍵⍵ ⍵)            ⍝ ⍺≡A:B fg ⍵(h ⍵)
    ⍺≡B:⊃⍺⍺{(⍺⍺ ⍺)⍵⍵ ⍵}⍵⍵/⍵     ⍝ ⍺≡B:⊃{(f ⍺)g ⍵}/⍵
    ⍺≡C:⊃⍺⍺{(⊃⍺⍺/⍺)⍵⍵ ⍵}⍵⍵/⍵    ⍝ ⍺≡C:⊃{(⊃f/⍺)g ⍵}/⍵
    C ⍺⍺(⍺ ⍵)(⍺ ⍵⍵ ⍵)           ⍝ C fg(⍺ ⍵)(⍺ h ⍵)
}
code_colours

test script

Back to: notes

Back to: Workspaces