Rosetta Code

Ethiopian multiplication: Difference between revisions

Page Discussion

Ethiopian multiplication (view source)

Revision as of 17:57, 23 July 2009

16 bytes removed ,  14 years ago
→‎{{header|Haskell}}
No edit summary
Line 191:
=={{header|Haskell}}==
<lang haskell>ethiopicmult 1 pliand acc = acc + pliand
ethiopicmult plier pliand acc =
if| even plier = ethiopicmult (plier `moddiv` 2) ==(pliand * 2) 0acc
| otherwise then= ethiopicmult (plier `div` 2) (pliand * 2) (acc + pliand)</lang>
else ethiopicmult (plier `div` 2) (pliand * 2) (acc + pliand)</lang>
 
'''Usage example''' from the interpreter
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/121463"