6 lines
125 B
Text
6 lines
125 B
Text
and=: *.
|
|
or=: +.
|
|
not=: -.
|
|
xor=: (and not) or (and not)~
|
|
hadd=: and ,"0 xor
|
|
add=: ((({.,0:)@[ or {:@[ hadd {.@]), }.@])/@hadd
|