RosettaCodeData/Task/Loops-Foreach/Prolog/loops-foreach.pro

8 lines
98 B
Prolog

?- foreach(member(X, [red,green,blue,black,white]), writeln(X)).
red
green
blue
black
white
true.