Humza Shahid
da8790f0b6
git-subtree-dir: game-sml git-subtree-mainline:aa5357714dgit-subtree-split:113c3e67ab
12 lines
220 B
Standard ML
12 lines
220 B
Standard ML
structure FallingEnemyPair =
|
|
struct
|
|
type key = int
|
|
type value = EnemyType.falling_enemy
|
|
|
|
fun l (a: int, b: int) = a < b
|
|
fun eq (a: int, b: int) = a = b
|
|
fun g (a: int, b: int) = a > b
|
|
|
|
val maxNodeSize = 8
|
|
end
|