Jump to content

Ethiopian multiplication: Difference between revisions

Ethiopian multiplication (view source)

Revision as of 18:09, 23 July 2009

96 bytes added ,  14 years ago
→‎{{header|Haskell}}
Line 190:
 
=={{header|Haskell}}==
<lang haskell>ethiopicmult 1:: Integral a => a pliand acc =-> acca +-> plianda
ethiopicmult plierx pliandy acc= ethiopicmult' x y 0 where
|ethiopicmult' even0 plier = ethiopicmult (plier `div`_ 2) (pliand * 2) acc = acc
| otherwise = ethiopicmult' (plier `div` 2) (pliand * 2) (acc + pliand)</lang>
| even plier = ethiopicmult' (plier `div` 2) (pliand * 2) acc
| otherwise = ethiopicmult' (plier `div` 2) (pliand * 2) (acc + pliand)</lang>
 
'''Usage example''' from the interpreter
<pre>*Main> ethiopicmult 17 34 0
578</pre>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/121464"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information