Ethiopian multiplication: Difference between revisions

Content added Content deleted
(J: document reason for last edit)
(J: renamed "even test" function so its name matches values where it is true)
Line 853:
<lang j>double =: 2&*
halve =: %&2 NB. or the primitive -:
evenodd =: 2&|
 
ethiop =: +/@(evenodd@] # (double~ <@#)) (1>.<.@halve)^:a:</lang>
 
'''Example''':
Retrieved from "https://rosettacode.org/wiki/Ethiopian_multiplication"