patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-29 15:49:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Generate outside of loop

Browse Source
This commit is contained in:
Smaug123
2024-02-16 14:07:15 +00:00
parent 65d2263a6c
commit b7f7db8c11
3 changed files with 141 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ConsumePlugin/Catamorphism.fs
View File

@@ -75,7 +75,7 @@ module TailRecCata =
| Child
| Parent
let private loop (cata : Cata<_, _>) (instructions : ResizeArray<_>) =
let private loop (cata : Cata<_, _>) (instructions : ResizeArray<Instruction>) =
let resultsStack = ResizeArray ()
let builderResultsStack = ResizeArray ()

7
ConsumePlugin/GeneratedCatamorphism.fs
View File

@@ -38,7 +38,7 @@ type Cata<'Expr, 'ExprBuilder> =
ExprBuilder : ExprBuilderCata<'Expr, 'ExprBuilder>
}
/// Catamorphism
/// Methods to perform a catamorphism over the type Expr
[<RequireQualifiedAccess>]
module ExprCata =
[<RequireQualifiedAccess>]
@@ -51,6 +51,11 @@ module ExprCata =
| ExprBuilderChild
| ExprBuilderParent
let private loop (cata : Cata<_, _>) (instructions : ResizeArray<Instruction>) =
let ExprBuilderStack = ResizeArray ()
let ExprStack = ResizeArray ()
ExprStack, ExprBuilderStack
/// Execute the catamorphism.
let runExpr (cata : Cata<'ExprRet, 'ExprBuilderRet>) (x : Expr) : 'ExprRet =
let instructions = ResizeArray ()