shouldTakeCard(CardColor) :-
    numberOfCards(CardColor,HowManyIHave),
    numberOfCards(joker,JokerCount),
    roadListToBuild(RoadList),
    member(Edge,RoadList),
    Edge = path(City1,City2,Length,Color,Coordinates,Status),
    (
        (
            Color == gray,
            (
                Length>4,
                JokerCount + HowManyIHave >= Length-1
            );
        );
        (
            Color \= gray,
            (
                Length>4,
                JokerCount + HowManyIHave >= Length-1
            );
            (
                Length>3,
                HowManyIHave >= Length-2
            );
            (
                Length=<3,
                HowManyIHave >= Length-1
            )
        )
    ).