humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

address remaining vertical duplicate issue (I was returning 1 from getTopmostY's loop, when I was meant to be returning 0)

Browse Source
This commit is contained in:
Humza Shahid
2025-07-08 08:00:37 +01:00
parent 0b954f81a1
commit 1ae67bb616
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

8
fcore/quad-tree.sml
View File

@@ -348,9 +348,7 @@ struct
local local
fun loop (x, y, ex, ey, grid) = fun loop (x, y, ex, ey, grid) =
if y = 0 then if y = 0 orelse ey = 0 then
1
else if ey <= 0 then
0 0
else if quadHasSameColour (x, y, ex, ey, grid) then else if quadHasSameColour (x, y, ex, ey, grid) then
loop (x, y - 1, ex, y, grid) loop (x, y - 1, ex, y, grid)
@@ -492,6 +490,10 @@ struct
val length = List.length list val length = List.length list
val _ = print ("length = " ^ Int.toString length ^ "\n") val _ = print ("length = " ^ Int.toString length ^ "\n")
val _ = print "start fold\n"
val _ = List.foldl (fn (item, _) => printItem item) () list
val _ = print "finish fold\n"
val f = folder val f = folder
( windowWidth ( windowWidth
, windowHeight , windowHeight