>>9
適当にアルゴリズムだけ
しかも Perl で w

$i=$ARGV[0];
for($a=0;$a<=$i;$a++){
for($s=0;$s<=$i;$s++){
$a[$a][$s]=' ';
if($a==$s or ($a+$s)==$i){$a[$a][$s]='Q';}
}}

for($a=$i/2;$a>=0;$a--){
for($s=0;$s<=$i;$s++){
print"$a[$a][$s]"; }
print"\n"; }

for($a=0;$a<=$i/2;$a++){
for($s=0;$s<=$i;$s++){
print"$a[$a][$s]"; }
print"\n"; }