17 lines
484 B
Prolog
17 lines
484 B
Prolog
:- use_module(library(http/html_write)).
|
|
|
|
theader([]) --> []. theader([H|T]) --> html(th(H)), theader(T).
|
|
trows([],_) --> []. trows([R|T], N) --> html(tr([td(N),\trow(R)])), { N1 is N + 1 }, trows(T, N1).
|
|
trow([]) --> []. trow([E|T]) --> html(td(E)), trow(T).
|
|
|
|
table :-
|
|
Header = ['X','Y','Z'],
|
|
Rows = [
|
|
[7055,5334,5795],
|
|
[2895,3019,7747],
|
|
[140,7607,8144],
|
|
[7090,475,4140]
|
|
],
|
|
phrase(html(table([tr(\theader(Header)), \trows(Rows,1)])), Out, []),
|
|
print_html(Out).
|