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

progress on player-enemy collisions when player is attacking enemy

Browse Source
This commit is contained in:
Humza Shahid
2024-12-27 18:12:42 +00:00
parent 01bc91e201
commit ada63d54ce
2 changed files with 59 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
fcore/bin-search.sml
View File

@@ -1,23 +1,40 @@
structure BinSearch =
struct
local
fun helpFind (findNum, vec, low, high) =
if high >= low then
let
val mid = low + ((high - low) div 2)
val curNum = Vector.sub (vec, mid)
in
if curNum = findNum then
mid
else if curNum < findNum then
helpFind (findNum, vec, mid + 1, high)
else
helpFind (findNum, vec, low, mid - 1)
end
else
~1
in
fun find (findNum, vec) =
helpFind (findNum, vec, 0, Vector.length vec - 1)
end
fun helpExists (findNum, vec, low, high) =
if high >= low then
let
val mid = low + ((high - low) div 2)
val curNum = Vector.sub (vec, mid)
in
if curNum = findNum then
true
else if curNum < findNum then
helpExists (findNum, vec, mid + 1, high)
else
helpExists (findNum, vec, low, mid - 1)
end
else
false
fun exists (findNum, vec) =
helpExists (findNum, vec, 0, Vector.length vec - 1)
fun helpFind (findNum, vec, low, high) =
if high >= low then
let
val mid = low + ((high - low) div 2)
val curNum = Vector.sub (vec, mid)
in
if curNum = findNum then
mid
else if curNum < findNum then
helpFind (findNum, vec, mid + 1, high)
else
helpFind (findNum, vec, low, mid - 1)
end
else
~1
fun find (findNum, vec) =
helpFind (findNum, vec, 0, Vector.length vec - 1)
end