mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-08 13:38:39 +00:00
23 lines
399 B
Forth
23 lines
399 B
Forth
namespace ConsumePlugin
|
|
|
|
open WoofWare.Myriad.Plugins
|
|
|
|
type Const =
|
|
| Int of int
|
|
| String of string
|
|
|
|
type PairOpKind =
|
|
| NormalSeq
|
|
| ThenDoSeq
|
|
|
|
[<CreateCatamorphism "TreeCata">]
|
|
type Tree =
|
|
| Const of Const
|
|
| Pair of Tree * Tree * PairOpKind
|
|
| Sequential of Tree list
|
|
| Builder of Tree * TreeBuilder
|
|
|
|
and TreeBuilder =
|
|
| Child of TreeBuilder
|
|
| Parent of Tree
|