12 lines
205 B
Standard ML
12 lines
205 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
|