Create an HTML table: Difference between revisions

Content added Content deleted

Inline

Revision as of 07:47, 15 May 2012

Create an HTML table.

The table body should have at least three rows of three columns.
Each of these three columns should be labelled "X", "Y", and "Z".
An extra column should be added at either the extreme left or the extreme right of the table that has no heading, but is filled with sequential row numbers.
The rows of the "X", "Y", and "Z" columns should be filled with random or sequential integers having 4 digits or less.
The numbers should be aligned in the same fashion for all columns.

Ada

We define a generic package to output HTML tables:

<lang Ada>generic

  type Item_Type is private;
  with function To_String(Item: Item_Type) return String is <>;
  with procedure Put(S: String) is <>;
  with procedure Put_Line(Line: String) is <>;

package HTML_Table is

  type Callback is not null access function (Number: Positive) return String;

  type Item_Array is array(Positive range <>, Positive range <>) of Item_Type;

  procedure Print(Items: Item_Array; Get_Header: Callback);

end HTML_Table;</lang>

The implementation goes as follows:

<lang Ada>package body HTML_Table is

  procedure Print(Items: Item_Array; Get_Header: Callback) is

     function Blanks(N: Natural) return String is
        -- indention for better readable HTML
     begin
        if N=0 then
           return "";
        else
           return " " & Blanks(N-1);
        end if;
     end Blanks;

     procedure Print_Row(Row_Number: Positive) is
     begin

Put(Blanks(4) & "" & Positive'Image(Row_Number) & "");

        for I in Items'Range(2) loop

Put("" & To_String(Items(Row_Number, I)) & "");

               end loop;

Put_Line(""); end Print_Row; procedure Print_Body is begin Put_Line(Blanks(2)&"<tbody align = ""right"">"); for I in Items'Range(1) loop Print_Row(I); end loop; Put_Line(Blanks(2)&"</tbody>"); end Print_Body; procedure Print_Header is begin Put_Line(Blanks(2) & "<thead align = ""right"">"); Put(Blanks(4) & "");

        for I in Items'Range(2) loop

Put("" & Get_Header(I) & "");

        end loop;

Put_Line(""); Put_Line(Blanks(2) & "</thead>"); end Print_Header; begin Put_Line("

"); Print_Header; Print_Body; Put_Line("

");

  end Print;

end HTML_Table;</lang>

Finally, the implementation using an instance of HTML_Table:

<lang Ada>with Ada.Text_IO, Ada.Numerics.Discrete_Random, HTML_Table;

procedure Test_HTML_Table is

  -- define the Item_Type and the random generator
  type  Four_Digits is mod 10_000;
  package Rand is new Ada.Numerics.Discrete_Random(Four_Digits);
  Gen: Rand.Generator;

  -- now we instantiate the generic package HTML_Table
  package Table is new HTML_Table
    (Item_Type => Four_Digits,
     To_String => Four_Digits'Image,
     Put       => Ada.Text_IO.Put,
     Put_Line  => Ada.Text_IO.Put_Line);

  -- define the object that will the values that the table contains
  The_Table: Table.Item_Array(1 .. 4, 1..3);

  -- this function outputs the column heads
  function Head(P: Positive) return String is
  begin
     case P is
        when 1 => return "X";
        when 2 => return "Y";
        when 3 => return "Z";
        when others => raise Program_Error;
     end case;
  end Head;

begin

  -- fill The_Table with random values
  Rand.Reset(Gen);
  for Rows in The_Table'Range(1) loop
     for Cols in The_Table'Range(2) loop
        The_Table(Rows, Cols) := Rand.Random(Gen);
     end loop;
  end loop;

  -- output The_Table
  Table.Print(The_Table, Head'Access);

end Test_HTML_Table;</lang>

Each time you run the program, you get different random values for the table. Here is a sample output:

 </thead>
 <tbody align = "right">

 </tbody>

	X	Y	Z
1	7255	3014	9436
2	554	3314	8765
3	4832	129	2048
4	31	6897	8265

</lang>

Viewing the output with Lynx:

        X    Y    Z                                                                                  
   1 7255 3014 9436                                                                                  
   2  554 3314 8765                                                                                  
   3 4832  129 2048                                                                                  
   4   31 6897 8265

AutoHotkey

Translation of: C

<lang AutoHotkey>out =

Loop 4

out .= "`r`n" out .= "`r`n

	X	Y	Z
" A_Index "	" Rand() "	" Rand() "	" Rand() "

"

MsgBox % clipboard := out

Rand(u=1000){

   Random, n, 1, % u
   return n

}</lang> Output:

	X	Y	Z
1	289	556	43
2	102	100	971
3	582	295	264
4	396	762	633

AWK

<lang AWK>#!/usr/bin/awk -f BEGIN {

print "

\n <thead align = \"right\">"; printf " \n </thead>\n <tbody align = \"right\">\n";

};

{

printf " \n",NR,$1,$2,$3;

};

END {

print " </tbody>\n

	X	Y	Z
%2i	%5i	%5i	%5i

\n";

};</lang>

BBC BASIC

Works with: BBC BASIC for Windows

Uses BBC BASIC's *spool command to create a file. <lang bbcbasic> ncols% = 3

     nrows% = 4
     
     *spool temp.htm
     
     PRINT "<html><head></head><body>"

PRINT "

" FOR row% = 0 TO nrows% IF row% = 0 THEN PRINT "" ;

       ELSE

PRINT "" ;

       ENDIF
       FOR col% = 1 TO ncols%
         IF row% = 0 THEN

PRINT "" ;

         ELSE

PRINT "" ;

         ENDIF
       NEXT col%

PRINT "" NEXT row% PRINT "


" ; row% "	" CHR$(87 + col%) "	" ; RND(9999) "

"

     PRINT "</body></html>"
     
     *spool
     
     SYS "ShellExecute", @hwnd%, 0, "temp.htm", 0, 0, 1

</lang> Output:

<html><head></head><body>
<table border=1 cellpadding=10 cellspacing=0>
<tr><th></th><th>X</th><th>Y</th><th>Z</th></tr>
<tr><th>1</th><td align="right">2791</td><td align="right">8011</td><td align="right">9582</td>
</tr>
<tr><th>2</th><td align="right">6793</td><td align="right">6863</td><td align="right">4790</td>
</tr>
<tr><th>3</th><td align="right">8064</td><td align="right">2626</td><td align="right">3917</td>
</tr>
<tr><th>4</th><td align="right">2660</td><td align="right">8776</td><td align="right">6805</td>
</tr>
</table>
</body></html>

Rendered output:

C

<lang C>#include <stdio.h>

include <stdlib.h>

int main() { int i;

printf("

" "");

for (i = 0; i < 4; i++) {

printf("", i,

rand() % 10000, rand() % 10000, rand() % 10000); }

printf("

	X	Y	Z
%d	%d	%d	%d

");

return 0;

}</lang>output (wiki doesn't like tbody/thead tags):

	X	Y	Z
0	2777	886	9383
1	8335	7793	6915
2	6649	492	5386
3	27	2362	1421

C++

<lang cpp>#include <fstream>

include <boost/array.hpp>
include <string>
include <cstdlib>
include <ctime>
include <sstream>

void makeGap( int gap , std::string & text ) {

  for ( int i = 0 ; i < gap ; i++ ) 
     text.append( " " ) ;

}

int main( ) {

  boost::array<char , 3> chars = { 'X' , 'Y' , 'Z' } ;
  int headgap = 3 ;
  int bodygap = 3 ;
  int tablegap = 6 ;
  int rowgap = 9 ;
  std::string tabletext( "<html>\n" ) ;
  makeGap( headgap , tabletext ) ;
  tabletext += "<head></head>\n" ;
  makeGap( bodygap , tabletext ) ;
  tabletext += "<body>\n" ;
  makeGap( tablegap , tabletext ) ;

tabletext += "

\n" ; makeGap( tablegap + 1 , tabletext ) ; tabletext += "<thead align=\"right\">\n" ; makeGap( tablegap, tabletext ) ; tabletext += "" ;

  for ( int i = 0 ; i < 3 ; i++ ) {

tabletext += "" ; } tabletext += "\n" ; makeGap( tablegap + 1 , tabletext ) ; tabletext += "</thead>" ; makeGap( tablegap + 1 , tabletext ) ; tabletext += "<tbody align=\"right\">\n" ; srand( time( 0 ) ) ; for ( int row = 0 ; row < 5 ; row++ ) { makeGap( rowgap , tabletext ) ; std::ostringstream oss ; tabletext += "" ; } tabletext += "\n" ; } makeGap( tablegap + 1 , tabletext ) ; tabletext += "</tbody>\n" ; makeGap( tablegap , tabletext ) ; tabletext += "

" ;

     tabletext += *(chars.begin( ) + i ) ;

tabletext += "

" ;

     oss << row ;
     tabletext += oss.str( ) ;
     for ( int col = 0 ; col < 3 ; col++ ) {

oss.str( "" ) ; int randnumber = rand( ) % 10000 ; oss << randnumber ;

tabletext += "

" ;

tabletext.append( oss.str( ) ) ;

tabletext += "

\n" ;

  makeGap( bodygap , tabletext ) ;
  tabletext += "</body>\n" ;
  tabletext += "</html>\n" ;
  std::ofstream htmltable( "testtable.html" , std::ios::out | std::ios::trunc ) ;
  htmltable << tabletext ;
  htmltable.close( ) ;
  return 0 ;

}</lang> Output ( of testtable.html ): <LANG html5><html>

  <head></head>
  <body>

      </thead>
      <tbody align="right">

      </tbody>

	X	Y	Z
0	1274	6847	352
1	846	6577	4612
2	7543	1644	8143
3	4928	5714	8186
4	3436	7493	9344

  </body>

</html> </LANG>

C#

<lang csharp>using System; using System.Text;

namespace prog { class MainClass { public static void Main (string[] args) { StringBuilder s = new StringBuilder(); Random rnd = new Random();

s.AppendLine("

"); s.AppendLine("<thead align = \"right\">"); s.Append("");

for(int i=0; i<3; i++)

s.Append(""); s.AppendLine(""); s.AppendLine("</thead>"); s.AppendLine("<tbody align = \"right\">"); for( int i=0; i<3; i++ ) { s.Append("");

for( int j=0; j<3; j++ )

s.Append(""); s.AppendLine(""); } s.AppendLine("</tbody>"); s.AppendLine("

	" + "XYZ"[i] + "
"+i+"	"+rnd.Next(10000)+"

");

Console.WriteLine( s ); } } }</lang>

CoffeeScript

This is one of many ways to create a table. CoffeeScript plays nice
with any templating solution built for JavaScript, and of course you
can build tables in the browser using DOM APIs. This approach is just
brute force string manipulation.

table = (header_row, rows) ->

"""

#{header_row} #{rows.join '\n'}

"""

tr = (cells) -> "#{cells.join }" th = (s) -> "#{s}" td = (s) -> "#{s}"

rand_n = -> Math.floor Math.random() * 10000

header_cols = [, 'X', 'Y', 'Z'] header_row = tr (th s for s in header_cols)

rows = [] for i in [1..5]

 rows.push tr [
   th(i)
   td rand_n()
   td rand_n()
   td rand_n()
 ]

html = table header_row, rows console.log html </lang>

output:

	X	Y	Z
1	1575	7445	4544
2	3827	5029	235
3	10	9363	4381
4	297	2463	5745
5	4063	6726	1093

D

Translation of: C

<lang d>import std.stdio, std.random;

void main() {

writeln(`

`); writeln("");

 foreach (i; 0 .. 4)

writefln("",

            i, uniform(0,1000), uniform(0,1000), uniform(0,1000));

writeln("

	X	Y	Z
%d	%d	%d	%d

");

}</lang> Output:

	X	Y	Z
0	524	739	847
1	13	813	782
2	926	580	663
3	309	816	750

Delphi

<lang Delphi>program CreateHTMLTable;

{$APPTYPE CONSOLE}

uses SysUtils;

function AddTableRow(aRowNo: Integer): string; begin

Result := Format(' %d%d%d%d',

   [aRowNo, Random(10000), Random(10000), Random(10000)]);

end;

var

 i: Integer;

begin

 Randomize;

Writeln('

'); Writeln(' ');

 for i := 1 to 4 do
   Writeln(AddTableRow(i));

Writeln('

	X	Y	Z

');

 Readln;

end.</lang>

Output:

	X	Y	Z
1	7371	2659	1393
2	6710	5025	5203
3	1316	1599	2086
4	4785	6612	5042

</lang>

Euphoria

<lang euphoria>puts(1,"

\n") puts(1," \n")

for i = 1 to 3 do

printf(1," ",i)

   for j = 1 to 3 do

printf(1,"",rand(10000))

   end for

puts(1,"\n") end for puts(1,"

	X	Y	Z
%d	%d

")</lang>

Sample output:

	X	Y	Z
1	7978	7376	2382
2	3632	1947	8900
3	4098	1563	2762

</lang>

Go

html/template is a package in the standard library. <lang go>package main

import (

   "fmt"
   "os"
   "html/template"

)

type Row struct {

   X, Y, Z int

}

var tmpl = `

Template:Range $ix, $row := .Template:End

	X	Y	Z
Template:$ix	Template:$row.X	Template:$row.Y	Template:$row.Z

`

func main() {

   // create template
   ct := template.Must(template.New("").Parse(tmpl))

   // make up data
   data := make([]Row, 4)
   for r := range data {
       data[r] = Row{r * 3, r*3 + 1, r*3 + 2}
   }

   // open output file
   hf, err := os.Create("table.html")
   if err != nil {
       fmt.Println(err)
       return
   }
   defer hf.Close()

   // apply template to data
   if err := ct.Execute(hf, data); err != nil {
       fmt.Println(err)
   }

}</lang> Output in table.html: <lang html5>

	X	Y	Z
0	0	1	2
1	3	4	5
2	6	7	8
3	9	10	11

</lang>

Groovy

<lang groovy>import groovy.xml.MarkupBuilder

def createTable(columns, rowCount) {

   def writer = new StringWriter()
   new MarkupBuilder(writer).table(style: 'border:1px solid;text-align:center;') {
       tr {
           th()
           columns.each { title -> th(title)}
       }
       (1..rowCount).each { row ->
           tr {
               td(row)
               columns.each { td((Math.random() * 9999) as int ) }
           }
       }
   }
   writer.toString()

}

println createTable(['X', 'Y', 'Z'], 3)</lang> Output:

	X	Y	Z
1	6106	9898	1584
2	1641	9387	3858
3	8970	4843	681

Icon and Unicon

<lang Icon>procedure main()

printf("

\n ")

every r := 1 to 4 do {

printf("\n ",r) every 1 to 3 do printf("",?9999) # random 4 digit numbers per cell

printf("\n

	X	Y	Z
%d	%d

\n")

end

link printf </lang>

Library: Icon Programming Library

printf.icn provides printf

Sample Output:<lang html5>

	X	Y	Z
1	3129	3294	7013
2	5045	169	5761
3	7001	963	4183
4	1695	1158	1240

</lang>

J

We can define:

<lang j>ele=:4 :0

 nm=. x-.LF
 lf=. x-.nm
 ;('<',nm,'>') ,L:0 y ,L:0 '</',nm,'>',lf

)

hTbl=:4 :0

 rows=. 'td' <@ele"1 ":&.>y
 'table' ele ('tr',LF) <@ele ('th' ele x); rows

)</lang>

With these definitions:

<lang j> (;;:'X Y Z') hTbl ":&.>(i.5),.i.5 3

	X	Y	Z
0	0	1	2
1	3	4	5
2	6	7	8
3	9	10	11
4	12	13	14

</lang>

Or, if running under jhs:

<lang j>jhtml (;;:'X Y Z') hTbl ":&.>(i.5),.i.5 3</lang>

to display the table inline, as html.

Java

Works with: Java version 1.5+

This example assumes the header row is the first row in the given array and does not add row numbers. They will need to be added by the programmer when constructing the array. <lang java5>public class HTML {

public static String array2HTML(Object[][] array){ StringBuilder html = new StringBuilder(

"

"); for(Object elem:array[0]){ html.append("");

} for(int i = 1; i < array.length; i++){ Object[] row = array[i];

html.append(""); for(Object elem:row){ html.append("");

}

html.append(""); } html.append("

" + elem.toString() + "
" + elem.toString() + "

");

return html.toString(); }

public static void main(String[] args){ Object[][] ints = {{"","X","Y","Z"},{1,1,2,3},{2,4,5,6},{3,7,8,9},{4,10,11,12}}; System.out.println(array2HTML(ints)); } }</lang> Output:

	X	Y	Z
1	1	2	3
2	4	5	6
3	7	8	9
4	10	11	12

</lang>

JavaScript

<lang html><html><head><title>Table maker</title><script type="application/javascript">

// normally, don't do this: at least name it something other than "a" Node.prototype.a = function (e) { this.appendChild(e); return this }

function ce(tag, txt) { var x = document.createElement(tag); x.textContent = (txt === undefined) ? : txt; return x; }

function make_table(cols, rows) { var tbl = ce('table', ), tr = ce('tr'), th;

tbl.a(tr.a(ce('th')));

var z = 'Z'.charCodeAt(0); for (var l = z - cols + 1; l <= z; l++) tr.a(ce('th', String.fromCharCode(l)));

for (var r = 1; r <= rows; r++) { tbl.a(tr = ce('tr').a(ce('th', r))); for (var c = 0; c < cols; c++) tr.a(ce('td', Math.floor(Math.random() * 10000))); }

document.body .a(ce('style', 'td, th {border: 1px solid #696;' + 'padding:.4ex} td {text-align: right }' + 'table { border-collapse: collapse}')) .a(tbl); } </script></head> <body><script>make_table(5, 4)</script></body></html></lang>

Liberty BASIC

This creates and saves an html file, then calls web browser to display it.
A time delay is needed to allow this, then the file is deleted. <lang lb>

   nomainwin

   quote$ =chr$( 34)

   html$  ="<html><head></head><body>"

html$ =html$ +"

"

   for i =1 to 4
       d1$ =str$( i)
       d2$ =str$( int( 10000 *rnd( 1)))
       d3$ =str$( int( 10000 *rnd( 1)))
       d4$ =str$( int( 10000 *rnd( 1)))

html$ =html$ +""

   next i

html$ =html$ +"

	X	Y	Z
"; d1$; "	" +d2$ +"	" +d3$ +"	" +d4$ +"

"

   html$ =html$ +"</body></html>"

   open "table.html" for output as #o
       #o html$;
   close #o

   address$ ="table.html"
   run "explorer.exe "; address$

   timer 5000, [on]
   wait
   [on]
   timer 0

   kill "table.html"

   wait

sub quit w$

   close #w$
   end

end sub </lang>

Mathematica

<lang Mathematica>x := RandomInteger[10];

Print["

", "\n",""] Scan[Print[""] & , Range[3]] Print["

	X	Y	Z
", #, "	", x, "	", x, "	","

"]</lang>

Output :

<table>
<tr><th></th><th>X</th><th>Y</th><th>Z</th></tr>
<tr><td>1</td><td>6</td><td>10</td><td></td></tr>
<tr><td>2</td><td>1</td><td>10</td><td></td></tr>
<tr><td>3</td><td>6</td><td>7</td><td></td></tr>
</table>

MATLAB / Octave

<lang matlab>function htmltable(fid,table,Label)

fprintf(fid,'

\n <thead align = "right">\n'); if nargin<3, fprintf(fid,' \n </thead>\n <tbody align = "right">\n');

  else

fprintf(fid,' '); fprintf(fid,'',Label{:}); fprintf(fid,'\n </thead>\n <tbody align = "right">\n'); end; fprintf(fid,' \n', [1:size(table,1);table']); fprintf(fid,' </tbody>\n

	X	Y	Z
	%s
%2i	%5i	%5i	%5i

\n');

end</lang>

Output:

>> htmltable(1,ceil(rand(5,3)*10000))
<table>
  <thead align = "right">
    <tr><th></th><td>X</td><td>Y</td><td>Z</td></tr>
  </thead>
  <tbody align = "right">
    <tr><td> 1</td><td> 6639</td><td> 1110</td><td>  296</td></tr>
    <tr><td> 2</td><td> 4864</td><td> 1252</td><td> 8412</td></tr>
    <tr><td> 3</td><td> 3800</td><td> 4556</td><td> 3752</td></tr>
    <tr><td> 4</td><td> 5728</td><td> 6897</td><td> 2157</td></tr>
    <tr><td> 5</td><td> 2272</td><td> 8503</td><td> 7021</td></tr>
  </tbody>
</table>

Modula-2

<lang modula2>MODULE testCGI;

FROM InOut IMPORT WriteCard, WriteLn, WriteString, WriteBf; FROM Arguments IMPORT ArgTable, GetEnv; FROM Strings IMPORT Assign, Length, String;

VAR EnvVars : ArgTable;

PROCEDURE ReadEnvVar;

VAR Value : String;

     i              : CARDINAL;

BEGIN

WriteString ('

'); WriteString ('');

  i := 0;
  LOOP
     IF  EnvVars^ [i] = NIL  THEN  EXIT  END;
     Assign (Value, EnvVars^ [i]^);

WriteString ('"); WriteLn; INC (i) END; WriteString("

Index	Length	Content
'); WriteCard (i, 2); WriteString ('	'); WriteCard (Length (Value), 3); WriteString ('	'); WriteString (Value); WriteString ("

");

END ReadEnvVar;

BEGIN

  GetEnv (EnvVars);
  WriteString ('Content-type:text/html');
  WriteLn;
  WriteLn;
  WriteString ('<html><head>');
  WriteString ('<title>CGI with the Mocka Modula-2 compiler</title>');
  WriteString ('</head><body>');
  WriteLn;

WriteString ('

CGI environment passed along by your browser

');

  ReadEnvVar;
  WriteString ('</body></html>');
  WriteLn;
  WriteBf

END testCGI.</lang>

NewLISP

<lang NewLISP>; file: html-table.lsp

url: http://rosettacode.org/wiki/Create_an_HTML_table
author: oofoe 2012-01-29

(seed (time-of-day)) ; Initialize random number generator.

The "tab" variable tracks the HTML indent. "pad" composes a line
with the appropriate indent and a terminal newline.

(setq tab 0) (define (pad text) (string (dup " " tab) text "\n"))

NewLISP allows almost any character in an identifier, so I can name
my functions after the HTML elements they invoke. This one formats a
single table data cell.

(define ( text) (pad (string "" text "")))

"" will accept either a number of arguments, each one to be
formatted as a table cell, or a single list argument, which is
broken into table cells. For convenience, I format each list item
with the "" function so I can feed it raw lists.

(define () (let ((data (args)) (s (pad ""))) (if (list? (data 0)) (setq data (data 0))) (inc tab) (dolist (el data) (extend s ( el)))

   (dec tab)

(extend s (pad "")) s))

By defining "" as a macro, I ensure that the rows won't be
evaluated until I've got the table started, which preserves the
formatting.

@@ Line 1,323: / Line 1,323: @@
 =={{header|Rascal}}==
+<lang rascal>import IO;
-<lang rascal>str html(str title, str content) = item("html", item("title", title) + item("body", content));
+import util::Math;
+str html(str title, str content) = item("html", item("title", title) + item("body", content));
 str item(str op, str content) = "\<<op>\><content>\</<op>\>";
 str table(str content) = item("table border=\"0\"", content);
@@ Line 1,338: / Line 1,341: @@
 	return "written";
 }</lang>
+This will result in a simple html file. For example:
+<lang rascal>rascal>generateTable(10)
+str: "written"</lang>
+has as output:
+<lang html><html><title>Rosetta Code Table</title><body><table border="0"><tr><td></td><td>X</td><td>Y</td><td>Z</td></tr><tr><td>1</td><td>253</td><td>3988</td><td>3208</td></tr><tr><td>2</td><td>315</td><td>2014</td><td>47</td></tr><tr><td>3</td><td>749</td><td>3379</td><td>1076</td></tr><tr><td>4</td><td>241</td><td>3211</td><td>1848</td></tr><tr><td>5</td><td>1</td><td>1605</td><td>6469</td></tr><tr><td>6</td><td>599</td><td>1243</td><td>1189</td></tr><tr><td>7</td><td>741</td><td>4709</td><td>2854</td></tr><tr><td>8</td><td>918</td><td>482</td><td>7160</td></tr><tr><td>9</td><td>451</td><td>572</td><td>6229</td></tr><tr><td>10</td><td>955</td><td>7970</td><td>9684</td></tr></table border="0"></body></html></lang>
 =={{header|Retro}}==

	X	Y	Z
0	289	824	462
1	49	600	84
2	511	219	742

', (map { "	$_
$_	".int(rand(10000))."

	X	Y	Z
1	2179	4778	2717
2	2160	1592	4348
3	4511	540	7187
4	3484	5882	1273
5	1310	4017	410

	X	Y	Z
1	6040	4697	7055
2	2525	5468	6901
3	8851	3727	8379
4	5313	4396	1765
5	4013	5924	6082

	" ^ v ^ "
" ^ string_of_int i ^ "	" ^ string_of_int (Random.int 1000) ^ "

Revision as of 07:47, 15 May 2012

Icon and Unicon

MATLAB / Octave

CGI environment passed along by your browser

With a dedicated library

TyXml