第８話 ３次方陣の自動生成プログラム
を実現するプログラム例
#! ruby -Ks
print "３次方陣の生成\n"
a=[0]
def f1(a,i)
a[0]=i
end
def f2(a,i)
if i==a[0] then
return 0
end
a[1]=i
return 1
end
def f3(a,i)
for j in 0..1
if i==a[j] then
return 0
end
end
a[2]=i
return 1
end
def f4(a,i)
for j in 0..2
if i==a[j] then
return 0
end
end
a[3]=i
return 1
end
def f5(a,i)
for j in 0..3
if i==a[j] then
return 0
end
end
a[4]=i
return 1
end
def f6(a,i)
for j in 0..4
if i==a[j] then
return 0
end
end
a[5]=i
return 1
end
def f7(a,i)
for j in 0..5
if i==a[j] then
return 0
end
end
a[6]=i
return 1
end
def f8(a,i)
for j in 0..6
if i==a[j] then
return 0
end
end
a[7]=i
return 1
end
def f9(a,i)
for j in 0..7
if i==a[j] then
return 0
end
end
a[8]=i
return 1
end
def g(a)
for i in 0..8
if i==3 then
print "\n"
end
if i==6 then
print "\n"
end
print a[i]," "
end
print "\n"
print "\n"
end
for i in 1..9
f1(a,i)
for j in 1..9
h1=f2(a,j)
if h1==1 then
for k in 1..9
h2=f3(a,k)
if h2==1 then
for l in 1..9
h3=f4(a,l)
if h3==1 then
for m in 1..9
h4=f5(a,m)
if h4==1 then
for n in 1..9
h5=f6(a,n)
if h5==1 then
for o in 1..9
h6=f7(a,o)
if h6==1 then
for p in 1..9
h7=f8(a,p)
if h7==1 then
for q in 1..9
h8=f9(a,q)
if h8==1 then
g(a)
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
参考ダウンロード添付ファイル
さて、３次方陣の自動生成が出来れば、
３次魔方陣自動生成まで後１です。
魔方陣にするには、
