RosettaCodeData/Task/Box-the-compass/Prolog/box-the-compass-2.pro

8 lines
282 B
Prolog
Raw Permalink Normal View History

2013-04-10 16:19:29 -07:00
printTableRow(Angle) :- compassangle(Index, Name, _, Angle),
write(Index), write(' '),
write(Name), write(' '),
write(Angle).
printTable([X|Xs]) :- printTableRow(X), nl, printTable(Xs),!.
printTable([]).