@s=(1,(0)x($n=<>));for(0..$n){print"@s\n";@s=map{$s[$_-1]+(2-!$_)*$s[$_]+$s[$_+1]}0..$n}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page