diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-05-09 18:59:23 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-05-09 18:59:23 +0000 |
| commit | e425895a315d65ff9ca1e2d7911c2fd21d49fe5e (patch) | |
| tree | 7622287d299dbf3edad7679841a59ac47348f1f5 /tests/chain.apl | |
| parent | 0f547edbd76814f7a8299f5e1647cd0816276ba8 (diff) | |
Fix some nasty bugs with empty lines in dfns, and with stranding of ⍺ and ⍵.
Diffstat (limited to 'tests/chain.apl')
| -rw-r--r-- | tests/chain.apl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/chain.apl b/tests/chain.apl index f6ab04b..aeeab52 100644 --- a/tests/chain.apl +++ b/tests/chain.apl @@ -1,8 +1,9 @@ worker←{ - msg←{1}⍇0 - ⎕←'Worker id ',(⍕⎕self),' got message: ',(⍕msg),' forwarding to ',⍕⍵ + msg←1⍨⍇0 ⍵≡⍬: ⎕←'DONE' + ⎕←'Worker id ',(⍕⎕self),' got message: ',(⍕msg) + ⎕←'Forwarding from ',(⍕⎕self), ' to ',⍕⍵ msg⍈⍵ } -last←worker&⍣100⊢⍬ +last←worker&⍣10⊢⍬ 'Hello there'⍈last |