1
0
Fork 0
agulator/agda/Calc.agda

23 lines
561 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 Eval
open import Parse
open import Show
open import Util
main : Main
main = run (getLine >>= λ c → putStrLn (showList (showResult show) (map evalBin (takeLine (primStringToList c)))))
-- singular version
-- main = run (getLine >>= λ c → putStrLn (showResult show (evalBin (takeBin (primStringToList c)))))