diff options
| author | Akshay <[email protected]> | 2020-10-09 13:35:56 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-10-09 13:35:56 +0100 |
| commit | 6a9e6bd0b440234e6b5f89414ca340867e8b6c98 (patch) | |
| tree | 5b762b956771d7d3dc063c729f46b9b04e580474 /src | |
| parent | 3ef6ec4bd3314efcac2504bd3a25e380d5e9514f (diff) | |
doc/todos
Diffstat (limited to 'src')
| -rw-r--r-- | src/Operators.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Operators.hs b/src/Operators.hs index 9eaec38..fc0608e 100644 --- a/src/Operators.hs +++ b/src/Operators.hs | |||
| @@ -19,6 +19,10 @@ data LispNumber = I Integer | |||
| 19 | | F Double | 19 | | F Double |
| 20 | 20 | ||
| 21 | instance Num LispNumber where | 21 | instance Num LispNumber where |
| 22 | -- TODO: | ||
| 23 | -- float op anything = float | ||
| 24 | -- int op int = int | ||
| 25 | -- int op float = float | ||
| 22 | (I a) + (I b) = I $ a + b | 26 | (I a) + (I b) = I $ a + b |
| 23 | (F a) + (F b) = F $ a + b | 27 | (F a) + (F b) = F $ a + b |
| 24 | (I a) - (I b) = I $ a - b | 28 | (I a) - (I b) = I $ a - b |