Commit ab91cded authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use 64bit args in mul2

parent 54f69dcc
......@@ -7,8 +7,8 @@ import Data.Bits
main :: IO ()
main = do f 5 6
f 0xFE36FB18 49
f 0xFE36FB18 0xFB29FC6A
f 0xFD94E3B7FE36FB18 49
f 0xFD94E3B7FE36FB18 0xFC1D8A3BFB29FC6A
f :: Word -> Word -> IO ()
f wx@(W# x) wy@(W# y)
......
......@@ -4,12 +4,12 @@ High: 0
Low: 30
Result: 30
-----
Doing 4265016088 * 49
High: 0
Low: 208985788312
Result: 208985788312
Doing 18272479967532481304 * 49
High: 48
Low: 9907802871033106328
Result: 895351518409091583896
-----
Doing 4265016088 * 4213832810
High: 0
Low: 17972064726792247280
Result: 17972064726792247280
Doing 18272479967532481304 * 18166828462103985258
High: 17995208684035254268
Low: 13422369508946319344
Result: 331953009147393985806713771139776616432
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment