split/ /,<>;for$i(1..$_[0]){print((join" ",map{($_+$i+1)%2}1..$_[1]),$/)}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page