63 lines
1.5 KiB
Text
63 lines
1.5 KiB
Text
|
import «MonadtSample»
|
|||
|
|
|
|||
|
|
def ret1 : Except String Nat := .ok 10
|
|||
|
|
|
|||
|
|
def ret2 : Except String Nat := .error "message"
|
|||
|
|
|
|||
|
|
def rets : List (Except String Nat) := [.ok 1, .ok 10, .error "problem 1", .error "problem 2", .ok 100000]
|
|||
|
|
|
|||
|
|
def liftIO (t : ExceptT String Id α) : IO α := do
|
|||
|
|
match t with
|
|||
|
|
| .ok r => EStateM.Result.ok r
|
|||
|
|
| .error s => EStateM.Result.error s
|
|||
|
|
|
|||
|
|
instance : MonadLift (ExceptT String Id) IO where
|
|||
|
|
monadLift := liftIO
|
|||
|
|
|
|||
|
|
def main : IO Unit := do
|
|||
|
|
let fmt := Std.Format.nest 5 <| ".aa gjeoi".toFormat.append ((Std.Format.align true).append ("a".toFormat.append (Std.Format.line.append "b".toFormat)))
|
|||
|
|
IO.println fmt
|
|||
|
|
-- let ret ← ret2
|
|||
|
|
-- IO.println s!"ret: {ret}"
|
|||
|
|
-- let ret ← ret1
|
|||
|
|
-- IO.println s!"ret: {ret}"
|
|||
|
|
try
|
|||
|
|
let ret ← ret1
|
|||
|
|
IO.println s!"ret1: {ret}"
|
|||
|
|
|
|||
|
|
for val in rets do
|
|||
|
|
IO.println s!"ret: {val}"
|
|||
|
|
catch e =>
|
|||
|
|
IO.eprintln s!"Error: {e}"
|
|||
|
|
|
|||
|
|
#eval main
|
|||
|
|
|
|||
|
|
#print main
|
|||
|
|
|
|||
|
|
#eval (1.2).mul 100 |>.round |>.div 100 |>.toString |>.toFormat |>.tag 10
|
|||
|
|
|
|||
|
|
#print Task
|
|||
|
|
|
|||
|
|
def hoge := main.asTask
|
|||
|
|
|
|||
|
|
#check -42.0
|
|||
|
|
#eval 10. * 10^3
|
|||
|
|
#check 10^3
|
|||
|
|
#eval (10.8).toUInt64
|
|||
|
|
#check Float.ofScientific
|
|||
|
|
#eval Float.ofScientific 323 true 1
|
|||
|
|
|
|||
|
|
namespace Float
|
|||
|
|
def sprintf_1 (x : Float) (a : Nat) : String :=
|
|||
|
|
let sign : Bool := x > 0
|
|||
|
|
let up := (if sign then x.toUInt64 else (-x).toUInt64) |>.toNat
|
|||
|
|
let down := (x - up.toFloat) * (10^a).toFloat |>.round |>.toUInt64 |>.toNat
|
|||
|
|
let sign_sign := if sign then "" else "-"
|
|||
|
|
s!"{sign_sign}{up}.{down}"
|
|||
|
|
end Float
|
|||
|
|
|
|||
|
|
#eval (3.14).sprintf_1 0
|
|||
|
|
#eval (3.14).sprintf_1 1
|
|||
|
|
#eval (3.14).sprintf_1 2
|
|||
|
|
|