- or download this
#!/usr/bin/tclsh
# vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4:
...
foreach l $output {
puts $l
}
- or download this
$ ./11104071-perl.pl
2 2 2 2 2 2 2 2 2 2
...
2 3 5 5 5
3 3 3 3 3 5
5 5 5 5
- or download this
$ ./11104071-tcl.tcl
2 2 2 2 2 2 2 2 2 2
...
2 3 5 5 5
3 3 3 3 3 5
5 5 5 5