multab.xql

A framework written in Java for implementing high-level and dynamic languages, compiling them into J

declare variable $max as xs:integer external;
declare variable $caption external;
<table><caption>{$caption}{$max}x{$max}</caption>
{
  for $y in 1 to $max return (
    <tr>{
      for $x in 1 to $max return
        let $bg:=(if($x mod 2 + $y mod 2 <= 0) then "lightgreen"
                  else if ($y mod 2 <= 0) then "yellow"
                  else if ($x mod 2 <= 0) then "lightblue"
                  else "white"),
            $prod:=$x*$y
          return <td align="right" bgcolor="{$bg}">{
            if ($x > 1 and $y > 1) then $prod else <b>{$prod}</b>}</td>
    }</tr>)
}</table>