blob: ef6b47978d6703bf1217225774a5ced0d10f396b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
⍝
⍝ Copyright (C) 2026 Peter Mikkelsen <petermikkelsen10@gmail.com>
⍝
⍝ This file is part of aplwc.
⍝
⍝ Aplwc is free software: you can redistribute it and/or modify
⍝ it under the terms of the GNU General Public License as published by
⍝ the Free Software Foundation, either version 3 of the License, or
⍝ (at your option) any later version.
⍝
⍝ Aplwc is distributed in the hope that it will be useful,
⍝ but WITHOUT ANY WARRANTY; without even the implied warranty of
⍝ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
⍝ GNU General Public License for more details.
⍝
⍝ You should have received a copy of the GNU General Public License
⍝ along with aplwc. If not, see <https://www.gnu.org/licenses/>.
⍝
:module Boot
:symbol plus '+'
:symbol minus '-'
:export '+' '-'
∇ r←a plus b
r←a (1⌶) b
∇
∇ r←a minus b
r←a (2⌶) b
∇
|