The speed is modest (0.750s with pypy on Windows 7 @ i5 2.60GHz), but the code is relatively short and hopefully the idea is clear. Enjoy.
1. Find candidates for all items. If only one exists for a blank, fill it in.
2. Note down the blank with least but more than one candidates.
3. Copy the matrix and trial the candidates recursively until all blanks are filled.

def solve(mat):
    tcan = [] # list of candidates
    i = 0
    mmin = immin = jmmin = 10  # item with least > 1 candidates
    while (i < 9):
        j = 0
        while (j < 9):
            if mat[i][j] == 0:
                t = list(set(range(1,10))- set(mat[i/3*3][j/3*3:j/3*3+3] + mat[i/3*3+1][j/3*3:j/3*3+3] + mat[i/3*3+2][j/3*3:j/3*3+3] + mat[i] + [mat[a][j] for a in range(9)]))
                if t == []: # can't find a candidate
                    return False
                if len(t) == 1:
                    if immin == i and jmmin == j: # replacing current least
                        mmin = immin = jmmin = 10
                    mat[i][j] = t[0]
                    i = -1
                    break
                if len(t) < mmin: # saving shortest candidate list
                    tcan, mmin, immin, jmmin = t, len(t), i, j
            j += 1
        i += 1
    if mmin == 10:
        return mat
    else:
        for test in tcan:
            mtest=[r[:] for r in mat] # copy without reference
            mtest[immin][jmmin] = test
            mtry = solve(mtest)
            if not mtry == False:
                return mtry
    return False

a = file('96.txt','r').readlines()
mt = []
count = 0
for x in a:
    if x[0] == 'G':
        mt = []
        print x
    else:
        mt.append (map(int, list(x)[0:9]))
        if len(mt)==9:
            m = solve(mt)
            for r in m:
                print r
            i = int(''.join(map(str,m[0][0:3])))
            count += i
print count

长天漠漠冬已深
雪尽冰留雨又频
幼草依稀时现影
轻风料峭总撩人
前年去雁应归里
旧日蛰虫或醒身
待到山花齐放处
谁谈曾历苦寒辛

while（弄不明白）{
   if（中文书||中文paper）
      撕掉或者烧掉
   else if（法国人写的尤其是布尔巴基写的）
      包好压入箱底
   else if（英美人写的）
      换一本日本或俄国，德国写的
   else if（日，俄，德写的）
      goto wikipedia.com
   else if（不想放弃）
      自己写一本能明白的
   else
      学个编程语言去挣钱吧，别耽误工夫了
}

【 在 automorphic (阿姆鲁索) 的大作中提到: 】
: 无人可问。查书还是自己推？大家说说经验。

The “Options” can auto-complete with psmatrix options such as rowsep, colsep… Still didn’t work even if I entered something. Checked the pst-node.el under /emacs/site-lisp/auctex/style/:

;;; Environments
(defun LaTeX-pstnode-env-psmatrix (env)
  "Return psmatrix environment with arguments."
  (let ((opt (completing-read-multiple "Options: "
                                       LaTeX-pstnode-psmatrix-list)))
    (LaTeX-insert-environment env opt)))

completing-read-multiple comes from crm.el, which enables the multiple auto completion. The return value is a list instead of a string, so LaTeX-insert-environment won’t accept it. Fixed the code as follows to loop over the list and insert the option items with comma and square brackets. It doesn’t look neat but it works anyway.

;;; Environments
;;; Changed by James Lao
(defun LaTeX-pstnode-env-psmatrix (env)
  "Return psmatrix environment with arguments."
  (let ((opt (completing-read-multiple "Options: "
                                       LaTeX-pstnode-psmatrix-list)))
    (setq opto "")
    (while opt
      (if (string= opto "")
	  (setq opto (car opt))
      (setq opto (concat opto ", " (car opt))))
      (setq opt (cdr opt)))
    (LaTeX-insert-environment env (concat "[" opto "]"))))

I’ve never used the mailing list and would appreciate if someone could help me check with the development team…

"GSWIN32C.EXE" "-dOutputFile=(_region_.prv/tmp5723kvc/pr1-1.png)" "-q""-dSAFER" "-dNOPAUSE" "-DNOPLATFONTS" "-dPrinted" "-dTextAlphaBits=4""-dGraphicsAlphaBits=4" "-sDEVICE=png16m" "-r70.4906x70.6156"
GS>{DELAYSAFER{.setsafe}if}stopped pop/.preview-BPcurrentpagedevice/BeginPage get dup null eq{pop{pop}bind}ifdef<>setpagedevice/preview-do{[count 3 roll save]3 1 roll dup length 0 eq{pop}{setpagedevice}{ifelse .runandhide}stopped{handleerror quit}if aload pop restore}bind def[(_region_.prv/tmp3712kvc/preview.dsc)(r)file]aload exch dup 0 setfileposition 520()/SubFileDecode filter cvx .runandhide aload pop dup dup 623 setfileposition 50()/SubFileDecode filter cvx<<>>preview-do
Error: /invalidfileaccess in --file--

查了一通后来发现有人遇到这个问题之后把GS降级到8.71以下就好了。说明GS在近来做了一些改动。左看右看看到了-dSAFER这个参数——这个参数本意是要加强权限检查防止gs自动打开系统文件权限——但和权限相关的也只有它了。试着在命令行下重新跑着两个命令（用gswin32会容易些，否则后面这个长命令贴都贴不进去），居然跑通了。又大致查了查，貌似可能是一个BUG，不过我升级到了最新的9.02也没有解决这个问题。

既然如此，到site-lisp/auctex/preview.elc（最好还是用.el重新编译一下） 下面找到
(defcustom preview-gs-options '("-q" "-dSAFER" "-dNOPAUSE" "-DNOPLATFONTS" "-dPrinted" "-dTextAlphaBits=4" "-dGraphicsAlphaBits=4")
把dSAFER一项干掉就是了。虽然这似乎是一个“漏洞”，不过就自己跑跑preview来看，应该没太大风险。

一个更为稳妥的办法是在.emacs里面加上 ‘(preview-gs-options (quote (“-q” “-dNOPAUSE” “-DNOPLATFONTS” “-dPrinted” “-dTextAlphaBits=4″ “-dGraphicsAlphaBits=4″)))，就好了

VERS SUR UN ALBUM
Sur cette page blanche où mes vers vont éclore,
Qu’un regard quelquefois ramène votre coeur !
De votre vie aussi la page est blanche encore;
Que ne puis-je y graver un seul mot : Le bonheur !

诗集上的题诗
此页白纸上 / 将绽放我诗篇
愿偶然一瞥 / 能唤回你心田
你的生活也 / 还是白纸一笺
恨不能只印 / 幸福二字其间

那个… 这种小清新笔法简直让我回到了看汪国真的中学时代… 装一回嫩吧，如果有同学看完了有不适感觉请自行处理本人概不负责…