isNearestToBall :: PlayerInfo -> [PlayerInfo] -> Ball -> Bool
isNearestToBall p ts b = let tes = map plentity ts
                         in null $ filter (< vectorLength (vectorFromTo (plentity p) (ballentity b)))
                                (map (vectorLength . (vectorFromTo (ballentity b))) tes)
isNearestToBall :: PlayerInfo -> [PlayerInfo] -> Ball -> Bool
isNearestToBall p ts b = let tes = map plentity ts
                         in null $ filter (< vectorLength (vectorFromTo (plentity p) (ballentity b)))
                                (map (vectorLength . (vectorFromTo (ballentity b))) tes)
isNearestToBall p ts b = let tes = map plentity ts
                         in null $ filter (< vectorLength (vectorFromTo (plentity p) (ballentity b)))
                                (map (vectorLength . (vectorFromTo (ballentity b))) tes)