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: | Line 853: | ||
<lang j>double =: 2&* |
<lang j>double =: 2&* |
||
halve =: %&2 NB. or the primitive -: |
halve =: %&2 NB. or the primitive -: |
||
odd =: 2&| |
|||
ethiop =: +/@( |
ethiop =: +/@(odd@] # (double~ <@#)) (1>.<.@halve)^:a:</lang> |
||
'''Example''': |
'''Example''': |
||