~mdw
/
bridge-toys
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
mason/sheet: Zap unwanted vertical whitespace.
[bridge-toys]
/
mason
/
sheet
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>
12
%#
13
<%once>
14
use Deal;
15
</%once>
16
%#
17
<%args>
18
$n => 50
19
$nbox => 4
20
</%args>