2 lines
130 B
Prolog
2 lines
130 B
Prolog
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.
|