This commit is contained in:
2022-06-09 11:29:42 +01:00
parent 1789a3785d
commit e4e7122070
43 changed files with 44 additions and 196 deletions
+1 -2
View File
@@ -5,11 +5,10 @@ A /trunk/ refers to the successive first nodes in lists of children.
-}
module Dodge.Tree.GenerateStructure
where
import Dodge.RandomHelp
import RandomHelp
import Data.Tree
import Control.Monad.State
import System.Random
{- Single branched tree (a trunk). -}
treePath :: Int -> Tree ()
treePath 0 = Node () []