48e0f6016905db0c5d9a04938f7c1680b67213245970933fe3afbc49ecb26f87

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 648

Preview (limited to 512 bytes)

"module TestData.ParenTree where\n\nimport qualified Data.Vector.Unboxed as V\n\nparenTree :: Int -> (V.Vector Int, V.Vector Int)\nparenTree n = case go ([],[]) 0 (if even n then n else n+1) of\n (ls,rs) -> (V.fromListN (length ls) (reverse ls),\n V.fromListN (length rs) (reverse rs))\n where\n go (ls,rs) i j = case j-i of\n 0 -> (ls,rs)\n 2 -> (ls',rs')\n d -> let k = ((d-2) `div` 4) * 2\n "


A service provided by FP Complete