findMove state comparison strategy = fst $ foldl' comparison (head pairs) pairs
                                     where moves  = children state
                                           values = map strategy moves
                                           pairs  = zip moves values
findMove state comparison strategy = fst $ foldl' comparison (head pairs) pairs
                                     where moves  = children state
                                           values = map strategy moves
                                           pairs  = zip moves values
findMove state comparison strategy = fst $ foldl' comparison (head pairs) pairs
                                     where moves  = children state
                                           values = map strategy moves
                                           pairs  = zip moves values