Make the example more compelling
Esse commit está contido em:
pai
f7505f573a
commit
148784ef4c
4
HW4.idr
4
HW4.idr
@ -38,7 +38,9 @@ initialState = (IntTy, IntTy, IntTy)
|
||||
testProg : Prog Main.initialState Main.initialState
|
||||
testProg =
|
||||
[ Store A (Lit 1 `Leq` Lit 2)
|
||||
, Store A (Lit 1)
|
||||
, If (Load A)
|
||||
[ Store A (Lit 1) ]
|
||||
[ Store A (Lit 2) ]
|
||||
, Store B (Lit 2)
|
||||
, Store R (Add (Load A) (Load B))
|
||||
]
|
||||
|
Carregando…
Referência em uma nova issue
Block a user