Fix a bug in the cata (#98)

2025-10-08 13:38:39 +00:00 · 2024-02-18 14:04:59 +00:00
parent 3ea1c7ab79
commit 1bbbf4bd06
5 changed files with 178 additions and 29 deletions
--- a/ConsumePlugin/FSharpForFunAndProfitCata.fs
+++ b/ConsumePlugin/FSharpForFunAndProfitCata.fs
@@ -50,3 +50,14 @@ type Gift =
    | Wrapped of Gift * WrappingPaperStyle
    | Boxed of Gift
    | WithACard of Gift * message : string
+
+[<CreateCatamorphism "MyListCata">]
+type MyList =
+    | Nil
+    | Cons of ConsCase
+
+and ConsCase =
+    {
+        Head : int
+        Tail : MyList
+    }