这道题做过,忘了.老了.

defint a-z
n = 11
n2 = n * 2
dim a(n2), b(n2), c(n)
  for i = 1 to n2
   if a(i) = 0 then
    for k = k + 1 to n
     if c(k) = 0 then
      j = i + k + 1
      if j <= n2 then
      if a(j) = 0 then
       c(k) = 1
       a(i) = k
       a(j) = k
       p = p + 1
       b(p) = i
       k = 0
       exit for
      end if
      end if
     end if
    next
    if p = n then
     for k = 1 to n2
      print a(k);
     next
     print
     answer& = answer& + 1
    end if
    if k > n then
     i = b(p)
     k = a(i)
     c(k) = 0
     a(i) = 0
     a(i + k + 1) = 0
     p = p - 1
     i = i - 1
    end if
   end if
   if p < 0 then exit for
  next
if answer = 0 then print "no answer" else print anmwer

按道理程序写到这样算可以的了,够短小精悍的了.
但题目居然要算到40去,老半天看不到影子.
还得改进?[em10]

只求一种可行排列,可还是太慢.

defint a-z
n=40
n2=n*2
dim a(n2),b(n),c(n)
  timer1#=timer
  for i=1 to n2
   if a(i)=0 then
    for k=k+1 to n
     if c(k)=0 then
      j=i+k+1
      if j<=n2 then
      if a(j)=0 then
       c(k)=k
       a(i)=k
       a(j)=k
       p=p+1
       b(p)=i
       k=0
       exit for
      end if
      end if
     end if
    next
    if p=n then exit for
    if k>n then
     i=b(p)
     k=a(i)
     c(k)=0
     a(i)=0
     a(i+k+1)=0
     p=p-1
     i=i-1
    end if
   end if
   if p<0 then exit for
  next
if p<0 then
  print"no answer"
else
  for k=1 to n2:print a(k);:next:print
end if
  print timer-timer1#

想起了richone的先走出口少的路,所以把路倒过来走,
又改了一次,40也很快了,39也很快了.
可问题还是存在,一些无解的38,37,34,33,31,29,甚至是13,还是半天算不完,没办法.

defint a-z
n=28
n2=n*2
dim a(n2),b(n),c(n)
  cls
  timer1#=timer
  k=n+1
  for i=1 to n2
   if a(i)=0 then
    for k=k-1 to 1 step-1
     if c(k)=0 then
      j=i+k+1
      if j<=n2 then
      if a(j)=0 then
       c(k)=k
       a(i)=k
       a(j)=k
       p=p+1
       b(p)=i
       k=n+1
       exit for
      end if
      end if
     end if
    next
    if p=n then exit for
    if k=0 then
     i=b(p)
     k=a(i)
     c(k)=0
     a(i)=0
     a(i+k+1)=0
     p=p-1
     if p<0 then exit for
     i=i-1
    end if
   end if
  next

if p<0 then
  print"no answer"
else
  for k=1 to n2:print a(k);:next:print
end if
  print timer-timer1#

一道数学题 可以通过构造法求出可行解 ... 如果知道这种方法后就会觉得N<=40实在是太小了 ...

搜索也是可以轻易解决N=40的吧 ... 我以前写的可以做到140 ...

ps . 好久没来这逛逛了

喔,愿领教.

我记得你,你的操作系统写得怎样了?

呵呵moz你好 .

其实数学方法我现在也不怎么记得了 ... 是一个在数学竞赛组的同学告诉我的 =.=
下次问到了再发 ...

os早就没弄了 ... 毕竟太没影了 ... 我现在只要弄个国家队就满足了

moz大哥，我倒！[em10]