[程序分享] 数独问题SAS/OR求解 [推广有奖]

41楼

mathstu

发表于 2013-11-1 17:24:56

顶！牛B！

42楼

bjpucl 发表于 2013-11-4 10:42:58

回复收藏一下，谢谢！

43楼

青春流逝 发表于 2013-11-14 22:36:47

顶，，，

一个人的烟火也是精彩的

44楼

yafeijojy 发表于 2013-12-3 13:38:20

大神啊，得回去好好拜读！

45楼

mycpcw 发表于 2013-12-7 23:45:58

46楼

wsyxh 发表于 2013-12-24 11:29:56

高人，很有用，谢谢！

47楼

wsyxh 发表于 2013-12-25 12:03:03

数独求解结果放在数据集outdata中，只有1行，81列，不便于识读，下面程序把它变成9X9方阵是不是更好辨识呢。

proc iml;
  Use outdata;
  Read all into A;
  n = sqrt(nCol(A));
  Sudoku = J(n,n);
  do i = 1 to n;
do j = 1 to n;
      Sudoku[i,j] = A[(i-1)*n+j];
end;
  end;
  print Sudoku;
run;
quit;