removeHuman :: AgentId -> ZombiesPatch -> ZombiesPatch
removeHuman aid (hs, z) = (delete aid hs, z)
removeHuman :: AgentId -> ZombiesPatch -> ZombiesPatch
removeHuman aid (hs, z) = (delete aid hs, z)
removeHuman aid (hs, z) = (delete aid hs, z)