RosettaCodeData/Task/Four-bit-adder/J/four-bit-adder-5.j

2 lines
52 B
Plaintext

add=: ((({.,0:)@[ or {:@[ hadd {.@]), }.@])/@hadd"1