carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 12:37:32 +03:00
Code Issues Projects Releases Wiki Activity

Issue #256 The interpreter should use integer division (Haskell quot) when dealing with integers in order to match the behaviour of the compiler

Browse Source
This commit is contained in:
Chris Hall 2018-06-23 14:20:40 +10:00
parent e00bdd1df0
commit 42ec03a293
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Commands.hs
View File

@ -661,6 +661,8 @@ commandMinus [a, b] =
commandDiv :: CommandCallback
commandDiv [a, b] =
return $ case (a, b) of
(XObj (Num IntTy aNum) _ _, XObj (Num IntTy bNum) _ _) ->
Right (XObj (Num IntTy (fromIntegral (quot (round aNum ::Int) (round bNum :: Int)))) (Just dummyInfo) (Just IntTy))
(XObj (Num aty aNum) _ _, XObj (Num bty bNum) _ _) ->
if aty == bty
then Right (XObj (Num aty (aNum / bNum)) (Just dummyInfo) (Just aty))