mirror of
https://github.com/ralsina/tartrazine.git
synced 2024-11-10 13:32: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
|