21 lines
549 B
Plaintext
21 lines
549 B
Plaintext
{-# OPTIONS --guardedness #-}
|
|
|
|
-- this one has main
|
|
|
|
module Calc where
|
|
|
|
open import Agda.Builtin.Char
|
|
open import Agda.Builtin.Maybe
|
|
open import Agda.Builtin.Nat
|
|
open import Agda.Builtin.String
|
|
|
|
open import Data.Nat.Show
|
|
open import IO
|
|
|
|
open import Expr
|
|
open import Parse
|
|
open import Util
|
|
|
|
main : Main
|
|
main = run (getLine >>= λ c → putStrLn (showResult show (evalBin (takeBin (primStringToList c)))))
|
|
-- main = run (getLine >>= λ c → putStrLn (showList (showResult show) (map evalBin (takeLine (primStringToList c))))) -- "123+415\n1+2\n"))))) |