14 lines
250 B
Standard ML
14 lines
250 B
Standard ML
|
structure EnemyPair =
|
||
|
|
struct
|
||
|
|
type key = int
|
||
|
|
type value = EnemyType.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
|
||
|
|
|
||
|
|
structure EnemyMap = MakeGapMap (EnemyPair)
|