mirror of
https://github.com/ProgramSnail/Lama.git
synced 2025-12-06 06:48:48 +00:00
15 lines
No EOL
264 B
Text
15 lines
No EOL
264 B
Text
import Ostap;
|
|
|
|
fun pure(v) {
|
|
empty @ lift(v)
|
|
}
|
|
|
|
var parse =
|
|
token(".") |> fun(e1) {
|
|
token(".") |> fun(e2) {
|
|
pure(Dot(e1, e2)) }};
|
|
|
|
case parseString(parse |> bypass(eof), "..") of
|
|
Succ(_) -> printf("Yes\n")
|
|
| Fail(_, _, _) -> printf("No\n")
|
|
esac |