RosettaCodeData/Task/Mutual-recursion/Prolog/mutual-recursion-2.pro

mirror of https://github.com/acmeism/RosettaCodeData.git
flist(S) :- for(X, 0, S), female(X, R), format('~d ', [R]), fail.
mlist(S) :- for(X, 0, S), male(X, R), format('~d ', [R]), fail.
	`flist(S) :- for(X, 0, S), female(X, R), format('~d ', [R]), fail.`
	`mlist(S) :- for(X, 0, S), male(X, R), format('~d ', [R]), fail.`