mirror of
https://github.com/ralsina/tartrazine.git
synced 2024-11-13 23:12:24 +00:00
68 lines
1.6 KiB
Plaintext
68 lines
1.6 KiB
Plaintext
|
---input---
|
||
|
true.
|
||
|
stop :- !.
|
||
|
of (fun F) :- pi x\ of x => of (F x).
|
||
|
match (uvar as Y) :- print Y.
|
||
|
|
||
|
---tokens---
|
||
|
'true' Text
|
||
|
'.' Operator
|
||
|
'\n' Text.Whitespace
|
||
|
|
||
|
'stop' Text
|
||
|
' ' Text.Whitespace
|
||
|
':-' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'!' Keyword.Declaration
|
||
|
'.' Operator
|
||
|
'\n' Text.Whitespace
|
||
|
|
||
|
'of' Text
|
||
|
' ' Text.Whitespace
|
||
|
'(' Text
|
||
|
'fun' Text
|
||
|
' ' Text.Whitespace
|
||
|
'F' Name.Variable
|
||
|
')' Operator
|
||
|
' ' Text.Whitespace
|
||
|
':-' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'pi' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'x' Name.Variable
|
||
|
'\\' Text
|
||
|
' ' Text.Whitespace
|
||
|
'of' Text
|
||
|
' ' Text.Whitespace
|
||
|
'x' Text
|
||
|
' ' Text.Whitespace
|
||
|
'=>' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'of' Text
|
||
|
' ' Text.Whitespace
|
||
|
'(' Text
|
||
|
'F' Name.Variable
|
||
|
' ' Text.Whitespace
|
||
|
'x' Text
|
||
|
')' Operator
|
||
|
'.' Operator
|
||
|
'\n' Text.Whitespace
|
||
|
|
||
|
'match' Text
|
||
|
' ' Text.Whitespace
|
||
|
'(' Text
|
||
|
'uvar' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'as' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'Y' Name.Variable
|
||
|
')' Operator
|
||
|
' ' Text.Whitespace
|
||
|
':-' Keyword.Declaration
|
||
|
' ' Text.Whitespace
|
||
|
'print' Text
|
||
|
' ' Text.Whitespace
|
||
|
'Y' Name.Variable
|
||
|
'.' Operator
|
||
|
'\n' Text.Whitespace
|