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

8 lines
98 B
Prolog
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
?- foreach(member(X, [red,green,blue,black,white]), writeln(X)).
red
green
blue
black
white
true.