[数值计算] 批处理打印趣味数列

ArdentMan

用批打印出如下趣味数列（9行9列），示例中的“-”“|”是为了说明数字间的排列关系而并非数列本身所有（打印时可省略）：

01 02 05 10 17...
   |  |  |  |
04-03 06 11 18...
      |  |  |
09-08-07 12 19...
         |  |
16-15-14-13 20...
            |
25-24-23-22-21...
.................
复制代码

ArdentMan

本人拙解：

@Echo Off&SetLocal EnableDelayedExpansion 
For /L %%i In (1,1,9) Do (
  set ".%%i="
  Set /A Pf=%%i*%%i,Num=Pf-2*%%i+2,Number=Pf-%%i+1,Count=%%i
  For /L %%j In (!Pf!,-1,!Num!) Do (
    Set "Str=00%%j"&Set "Str=!Str:~-2!"
    If %%j GEQ !Number! (
      Set ".%%i=!.%%i! !Str!" (
      ) Else (
      Set /A Count-=1
      For %%k In (!Count!) Do Set ".%%k=!.%%k! !Str!"
    )
  )
)
Set .
Pause>Nul
复制代码

ArdentMan

三楼算法一次性输出方案：

@Echo Off&SetLocal EnableDelayedExpansion 
For /L %%i In (1,1,9) Do (
  For /L %%j In (1,1,9) Do (
    If %%j EQU 1 (
      Set /A Num=%%i*%%i+100
      ) Else ( 
      If %%j LEQ %%i (
        Set /A Num=%%i*%%i-%%j+101
        ) Else (
        Set /A Num=%%j*%%j-2*%%j+%%i+101
      )
    )
    Set "Str=!Str! !Num:~-2!"
  )
  Echo !Str:~1!&Set "Str="
)
Pause>Nul   
复制代码

ArdentMan

plp626连公式都搞出来了，真牛人一个