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

2 lines
52 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
add=: ((({.,0:)@[ or {:@[ hadd {.@]), }.@])/@hadd"1