benchmarks-table ( assoc -- xml )


Vocabulary
mason.report

Inputs
assocan object


Outputs
xmlan object


Definition


: benchmarks-table ( assoc -- xml )
[
1000000000 /f "%.3f" sprintf 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml
] { } assoc>map 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { children ~vector~ } }
"\n "
T{ tag { name ~name~ } { children ~vector~ } }
""
}
}
} interpolate-xml ;