basket1.pl

eachTeamAproxHalfTheRoundsHomeHalfAway:-
    numTeams(N), team(S),
    findall(home(S,R),round(R),Lits),
    Min is N/2 - 1,
    Max is N/2,
    atLeast(Min,Lits),
    atMost(Max,Lits),
    fail.
eachTeamAproxHalfTheRoundsHomeHalfAway.

eachRoundTwoHomeTwoAwayOf1234:-
    round(R),
    findall(home(S,R),specialTeams(S),Lits),
    exactly(2,Lits),
    fail.
eachRoundTwoHomeTwoAwayOf1234.