diff options
| author | Peter Mikkelsen <peter@pmikkelsen.com> | 2022-02-09 01:16:03 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <peter@pmikkelsen.com> | 2022-02-09 01:16:03 +0000 |
| commit | 6ed5b9f6d3fdeeed8ecd43b18bae642ec1ec24b1 (patch) | |
| tree | cee3f787af7fb7e8b892fb661f63dc9248cd5f61 /tests | |
| parent | 8fd005f6185ac76ed0ac2495bd97ee817b472040 (diff) | |
Add much better memory handling (We now track and free Datum * structs)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/chain.apl | 8 | ||||
| -rw-r--r-- | tests/queens.apl | 5 |
2 files changed, 12 insertions, 1 deletions
diff --git a/tests/chain.apl b/tests/chain.apl new file mode 100644 index 0000000..c8efeb7 --- /dev/null +++ b/tests/chain.apl @@ -0,0 +1,8 @@ +worker←{ + msg←{1}⍇0 + ⎕←'Worker id ',(⍕⎕self),' got message: ',(⍕msg),' forwarding to ',⍕⍵ + ⍵≡⍬: ⎕←'DONE' + msg⍈⍵ +} +last←worker&⍣25⊢⍬ +_←'Hello there'⍈last diff --git a/tests/queens.apl b/tests/queens.apl index a2ce041..d372186 100644 --- a/tests/queens.apl +++ b/tests/queens.apl @@ -4,4 +4,7 @@ subs←{(⊂⍵)⍪¨(⍳⍴⊃⍺)~atk ⍵} accm←{⍺⍪((⍴⍵)=⍴⊃⍺)↑⊂⍵} fmt←{(⊂⎕io+⍵=⌾⍳⍴⍵)⌷'∘⎕'} queens←{fmt¨ 1↓(↓1 ⍵⍴0)accm dfs subs ⍬} -⎕←queens 5 +eightqueens←queens 8 +⎕←'Number of solutions to 8 queens: ',⍕≢eightqueens +⎕←'First five:' +⎕←5↑eightqueens
\ No newline at end of file |