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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

65
Task/Create-an-HTML-table/Bracmat/create-an-html-table.bracmat Normal file
View file

@ -0,0 +1,65 @@
( ( makeTable
= headTexts
minRowNr
maxRowNr
headCells
cells
rows
Generator
Table
. !arg:(?headTexts.?minRowNr.?maxRowNr.?Generator)
& ( headCells
= cellText
. !arg:%?cellText ?arg
& (th.,!cellText) headCells$!arg
|
)
& ( cells
= cellText cellTexts numberGenerator
. !arg
: (%?cellText ?cellTexts.(=?numberGenerator))
& (td.,numberGenerator$)
cells$(!cellTexts.'$numberGenerator)
|
)
& ( rows
= headTexts rowNr maxRowNr Generator
. !arg:(?headTexts.?rowNr.?maxRowNr.?Generator)
& !rowNr:~>!maxRowNr
& ( tr
.
, (td.,!rowNr)
cells$(!headTexts.!Generator)
)
\n
rows$(!headTexts.!rowNr+1.!maxRowNr.!Generator)
|
)
& ( table
.
, ( thead
. (align.right)
, \n (tr.,(th.," ") headCells$!headTexts)
)
\n
( tbody
. (align.right)
, \n
rows
$ (!headTexts.!minRowNr.!maxRowNr.!Generator)
)
)
: ?Table
& str$(toML$!Table) { Create HTML }
)
& makeTable
$ ( X Y Z { Column headers }
. 1 { Lowest row number }
. 4 { Highest row number }
. { Function that generates numbers 9, 10, ...}
' ( cnt
. (cnt=$(new$(==8))) { This creates an object 'cnt' with scope as a local function variable that survives between calls. }
& !(cnt.)+1:?(cnt.)
)
)
)