[bridge-toys] / mason / sheet

<%perl>
$r->content_type("text/plain");
for (my $i = 0; $i < $n; $i++) {
  my @l = Deal::line;
  for (my $j = 0; $j < @l; $j++) {
    $j && $j % $nbox == 0 and $m->out(" ");
    $m->out($l[$j]);
  }
  $m->out("\n");
}
</%perl>
%#
<%once>
use Deal;
</%once>
%#
<%args>
$n => 50
$nbox => 4
</%args>
%#
<%method wrapper><% $m->content %></%method>
Commit	Line	Data
bba7b95e MW	1	<%perl>
	2	$r->content_type("text/plain");
	3	for (my $i = 0; $i < $n; $i++) {
	4	my @l = Deal::line;
	5	for (my $j = 0; $j < @l; $j++) {
	6	$j && $j % $nbox == 0 and $m->out(" ");
	7	$m->out($l[$j]);
	8	}
	9	$m->out("\n");
	10	}
	11	</%perl>
0fc50f69	12	%#
bba7b95e MW	13	<%once>
	14	use Deal;
	15	</%once>
0fc50f69	16	%#
bba7b95e MW	17	<%args>
	18	$n => 50
	19	$nbox => 4
	20	</%args>
3e006266 MW	21	%#
3e006266 MW	22	<%method wrapper><% $m->content %></%method>