aboutsummaryrefslogtreecommitdiff
path: root/src/Expr.hs
diff options
context:
space:
mode:
authorCharles <sircharlesaze@gmail.com>2020-06-05 11:37:58 +0200
committerCharles <sircharlesaze@gmail.com>2020-06-05 11:38:59 +0200
commit45cada8eade7242eb7f29af7b92858e9a1a7f68b (patch)
treed4a2ee909f617b3366861666f82a128319ccd134 /src/Expr.hs
parent2b0b62b44a87536597050c525322c7bcc745bdb2 (diff)
downloadcomputorv2-45cada8eade7242eb7f29af7b92858e9a1a7f68b.tar.gz
computorv2-45cada8eade7242eb7f29af7b92858e9a1a7f68b.tar.bz2
computorv2-45cada8eade7242eb7f29af7b92858e9a1a7f68b.zip
Added print environment command, prompt editing and history with haskeline
Diffstat (limited to 'src/Expr.hs')
-rw-r--r--src/Expr.hs12
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Expr.hs b/src/Expr.hs
index 96c2fe6..852ee47 100644
--- a/src/Expr.hs
+++ b/src/Expr.hs
@@ -1,23 +1,25 @@
module Expr where
+import Control.Monad
import Data.List
-import qualified Data.Map as M
-import Control.Monad
+import qualified Data.Map as M
data Expr
- = Rational Float
+ = Rational Float -- values
| Imaginary Float
| Complex Float Float
| Matrix [[Expr]]
- | Add Expr Expr
+
+ | Add Expr Expr --- ops
| Sub Expr Expr
| Mul Expr Expr
| Div Expr Expr
| Mod Expr Expr
| Exp Expr Expr
| Dot Expr Expr
- | Variable String
+
+ | Variable String -- lables
| Function String Expr
deriving (Eq)