Anonymous user
Ethiopian multiplication: Difference between revisions
→{{header|Forth}}: Marked incorrect.
(→{{header|FALSE}}: Inconsistency solved (inconsistent beviour of "&" and "|" operators in different implementations caused differences)) |
(→{{header|Forth}}: Marked incorrect.) |
||
Line 1,088:
=={{header|Forth}}==
{{incorrect|Forth|No functions/subroutines defined to perform the three actions as specified in the task description}}
<lang forth>: e* ( x y -- x*y )
dup 0= if nip exit then
| |||