RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Prolog/loop-over-multiple-arrays-simultaneously.pro

multiple_arrays(L1, L2, L3) :-
	maplist(display, L1, L2, L3).

display(A,B,C) :-
	writef('%s%s%s\n', [[A],[B],[C]]).