File: Let2.session

package info (click to toggle)
frown 0.6.1-13
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 9,956 kB
  • sloc: haskell: 35,132; makefile: 228; csh: 35; yacc: 23
file content (8 lines) | stat: -rw-r--r-- 585 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
 
> Let2>> expr (lexer "4 * (7 + 1) - 1") :: Result Expr
> Return (Bin (Bin (Const 4) Times (Bin (Const 7) Plus (Const 1))) Minus (Const 1))
> Let2>> expr (lexer "4 * 7 + 1 - 1") :: Result Expr
> Return (Bin (Bin (Bin (Const 4) Times (Const 7)) Plus (Const 1)) Minus (Const 1))
> Let2>> expr (lexer "let\n    a = 4 * (7 + 1) - 1\n in a * a") :: Result Expr
> Return (Let ("a" :=: Bin (Bin (Const 4) Times (Bin (Const 7) Plus (Const 1))) Minus (Const 1)) (Bin (Var "a") Times (Var "a")))
> Let2>> expr (lexer "let\n    a = 4 * (7 + 1 - 1\n in a * a") :: Result Expr
> Fail "syntax error"