justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit before looking into pathfinding

Browse Source
This commit is contained in:
justin
2022-06-25 18:57:50 +01:00
parent dc78561c20
commit c56e53d33f
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Shader/Poke.hs
+4 -6
View File
@@ -130,14 +130,12 @@ pokeTopPrismIndex nv iptr counts ioff = do
UMV.unsafeModify counts (+1) 1 UMV.unsafeModify counts (+1) 1
memoTopPrismEdgeIndices :: V.Vector (UV.Vector Int) memoTopPrismEdgeIndices :: V.Vector (UV.Vector Int)
memoTopPrismEdgeIndices = V.generate 10 f memoTopPrismEdgeIndices = V.generate 10
where $ UV.fromList . topPrismEdgeIndices . (+ 2)
f n = UV.fromList $ topPrismEdgeIndices (n + 2)
memoTopPrismIndices :: V.Vector (UV.Vector Int) memoTopPrismIndices :: V.Vector (UV.Vector Int)
memoTopPrismIndices = V.generate 10 f memoTopPrismIndices = V.generate 10
where $ UV.fromList . topPrismIndices . (+ 2)
f n = UV.fromList $ topPrismIndices (n + 2)
topPrismEdgeIndices :: Int -> [Int] topPrismEdgeIndices :: Int -> [Int]
topPrismEdgeIndices n = concatMap f [0..n-1] topPrismEdgeIndices n = concatMap f [0..n-1]