tests/chain.apl


1
2
3
4
5
6
7
8
9
10
11
12

send←⍈ ⍝ I can't type those easily so give them names
recv←⍇

worker←{
	msg←{1 ⍵}recv ⍬
	⍵≡⍬: ⎕←'DONE'
	⎕←'Worker id ',(⍕⎕self),' (',(⎕self ⎕tasks 1),') got message: ',(⍕msg)
	⎕←'Forwarding from ',(⍕⎕self), ' to ',⍕⍵
	msg send ⍵
}
last←worker&'worker'⍣10⊢⍬
'Hello there' send last