aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

update

Browse source
This commit is contained in:
Ingy döt Net 2013-06-05 21:47:54 +00:00
parent 1f1ad49427
commit 6f050a029e
2496 changed files with 37609 additions and 3031 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Create-an-HTML-table/OCaml/create-an-html-table-1.ocaml
View file

@ -3,14 +3,14 @@ let () =
let s = Buffer.add_string buf in
Random.self_init();
s "<table>";
s "<thead align=\"right\">";
s "<thead align='right'>";
s "<tr><th></th>";
List.iter (fun v ->
s ("<td>" ^ v ^ "</td>")
) ["X"; "Y"; "Z"];
s "</tr>";
s "</thead>";
s "<tbody align=\"right\">";
s "<tbody align='right'>";
for i = 0 to pred 3 do
s ("<tr><td>" ^ string_of_int i ^ "</td>");
for j = 0 to pred 3 do

4
Task/Create-an-HTML-table/OCaml/create-an-html-table-3.ocaml
View file

@ -1,8 +1,8 @@
#use "topfind"
#require "tyxml"
module X = XHTML.M_01_01 (* XHTML 1.1 *)
module P = XHTML.P_01_01
module X = Xhtml.M_01_01 (* XHTML 1.1 *)
module P = Xhtml.P_01_01
let make_table () =
let td1 = X.td [X.pcdata "1"] in