diff options
| author | Charles <sircharlesaze@gmail.com> | 2020-06-05 11:37:58 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2020-06-05 11:38:59 +0200 |
| commit | 45cada8eade7242eb7f29af7b92858e9a1a7f68b (patch) | |
| tree | d4a2ee909f617b3366861666f82a128319ccd134 /src/Expr.hs | |
| parent | 2b0b62b44a87536597050c525322c7bcc745bdb2 (diff) | |
| download | computorv2-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.hs | 12 |
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) |
