[LISP程序]：40-10-10=60?

xyp1964

已知：FORTY －TEN －TEN ＝SIXTY
          （中文解释40 －10 －10 ＝60）
          每个字母代表一个小于10且不相等的自然数。
          FORTY
            －    TEN
            －    TEN
          ____________
                    SIXTY

求解：FORTY、TEN及SIXTY的真实数字。

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (cmdla0)
   
5.   (setq        f 0
   
6.         E 5
   
7.         N 0
   
8.   )
   
9.   (while (< f 9)
   
10.     (setq f (1+ f)
    
11.           o 0
    
12.     )
    
13.     (while (< o 9)
    
14.       (setq o (1+ o)
    
15.             r 0
    
16.       )
    
17.       (while (< r 9)
    
18.         (setq r         (1+ r)
    
19.               tt 0
    
20.         )
    
21.         (while (< tt 9)
    
22.           (setq        tt (1+ tt)
    
23.                 y  0
    
24.           )
    
25.           (while (< y 9)
    
26.             (setq y (1+ y)
    
27.                   s 0
    
28.             )
    
29.             (while (< s 9)
    
30.               (setq s (1+ s)
    
31.                     i 0
    
32.               )
    
33.               (while (< i 9)
    
34.                 (setq i        (1+ i)
    
35.                       x        0
    
36.                 )
    
37.                 (while (< x 9)
    
38.                   (setq x (1+ x))
    
39.                   (if
    
40.                     (and
    
41.                       (/= f 0)
    
42.                       (/= f 5)
    
43.                       (/= o 0)
    
44.                       (/= o 5)
    
45.                       (/= r 0)
    
46.                       (/= r 5)
    
47.                       (/= tt 0)
    
48.                       (/= tt 5)
    
49.                       (/= y 0)
    
50.                       (/= y 5)
    
51.                       (/= s 0)
    
52.                       (/= s 5)
    
53.                       (/= i 0)
    
54.                       (/= i 5)
    
55.                       (/= x 0)
    
56.                       (/= x 5)
    
57.                       (/= x i)
    
58.                       (/= x s)
    
59.                       (/= x y)
    
60.                       (/= x tt)
    
61.                       (/= x r)
    
62.                       (/= x o)
    
63.                       (/= x f)
    
64.                       (/= i s)
    
65.                       (/= i y)
    
66.                       (/= i tt)
    
67.                       (/= i r)
    
68.                       (/= i o)
    
69.                       (/= i f)
    
70.                       (/= s y)
    
71.                       (/= s tt)
    
72.                       (/= s r)
    
73.                       (/= s o)
    
74.                       (/= s f)
    
75.                       (/= y tt)
    
76.                       (/= y r)
    
77.                       (/= y o)
    
78.                       (/= y f)
    
79.                       (/= tt r)
    
80.                       (/= tt o)
    
81.                       (/= tt f)
    
82.                       (/= r o)
    
83.                       (/= r f)
    
84.                       (/= o f)
    
85.                       (= (- (+ (* 10000 f)
    
86.                                (* 1000 o)
    
87.                                (* 100 r)
    
88.                                (* 10 tt)
    
89.                                y
    
90.                             )
    
91.                             (* (+ (* 100 tt) (* 10 5) 0) 2)
    
92.                          )
    
93.                          (+ (* 10000 s) (* 1000 i) (* 100 x) (* 10 tt) y)
    
94.                       )
    
95.                     )
    
96.                      (mapcar 'princ
    
97.                              (list "\nFORTY="         F        O      R
    
98.                                    TT          Y         "\nTEN="       TT
    
99.                                    E          N         "\nSIXTY="     S
    
100.                                    I          X         TT        Y
     
101.                                   )
     
102.                      )
     
103.                   )
     
104.                 )
     
105.               )
     
106.             )
     
107.           )
     
108.         )
     
109.       )
     
110.     )
     
111.   )
     
112.   (get-time)
     
113.   (cmdla1)
     
114. )
     
115. [/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        f 0<br />         E 5<br />         N 0<br />   )<br />   (while (< f 9)<br />     (setq f (1+ f)<br />           o 0<br />     )<br />     (while (< o 9)<br />       (setq o (1+ o)<br />             r 0<br />       )<br />       (while (< r 9)<br />         (setq r         (1+ r)<br />               tt 0<br />         )<br />         (while (< tt 9)<br />           (setq        tt (1+ tt)<br />                 y  0<br />           )<br />           (while (< y 9)<br />             (setq y (1+ y)<br />                   s 0<br />             )<br />             (while (< s 9)<br />               (setq s (1+ s)<br />                     i 0<br />               )<br />               (while (< i 9)<br />                 (setq i        (1+ i)<br />                       x        0<br />                 )<br />                 (while (< x 9)<br />                   (setq x (1+ x))<br />                   (if<br />                     (and<br />                       (/= f 0)<br />                       (/= f 5)<br />                       (/= o 0)<br />                       (/= o 5)<br />                       (/= r 0)<br />                       (/= r 5)<br />                       (/= tt 0)<br />                       (/= tt 5)<br />                       (/= y 0)<br />                       (/= y 5)<br />                       (/= s 0)<br />                       (/= s 5)<br />                       (/= i 0)<br />                       (/= i 5)<br />                       (/= x 0)<br />                       (/= x 5)<br />                       (/= x i)<br />                       (/= x s)<br />                       (/= x y)<br />                       (/= x tt)<br />                       (/= x r)<br />                       (/= x o)<br />                       (/= x f)<br />                       (/= i s)<br />                       (/= i y)<br />                       (/= i tt)<br />                       (/= i r)<br />                       (/= i o)<br />                       (/= i f)<br />                       (/= s y)<br />                       (/= s tt)<br />                       (/= s r)<br />                       (/= s o)<br />                       (/= s f)<br />                       (/= y tt)<br />                       (/= y r)<br />                       (/= y o)<br />                       (/= y f)<br />                       (/= tt r)<br />                       (/= tt o)<br />                       (/= tt f)<br />                       (/= r o)<br />                       (/= r f)<br />                       (/= o f)<br />                       (= (- (+ (* 10000 f)<br />                                (* 1000 o)<br />                                (* 100 r)<br />                                (* 10 tt)<br />                                y<br />                             )<br />                             (* (+ (* 100 tt) (* 10 5) 0) 2)<br />                          )<br />                          (+ (* 10000 s) (* 1000 i) (* 100 x) (* 10 tt) y)<br />                       )<br />                     )<br />                      (mapcar 'princ<br />                              (list "\nFORTY="         F        O      R<br />                                    TT          Y         "\nTEN="       TT<br />                                    E          N         "\nSIXTY="     S<br />                                    I          X         TT        Y<br />                                   )<br />                      )<br />                   )<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (get-time)<br />   (cmdla1)<br /> )<br /> [/FONT]

命令: test
FORTY=31486
TEN=850
SIXTY=29786
用时 : 0 小时6 分25.59 秒

效率极慢！

狂刀

你是说要把英文数字词语数字化并计算吧？

snoopychen

用10分钟编了一个,不过效率很低,大概2,3秒吧,将就了:)
result = ((31486 850 29786))

[php]
(defun c:test1 ()
  (setq f 1
        result nil
  )
  (repeat 9
    (setq o 1)
    (repeat 1
      (setq r 0)
      (repeat 10
        (setq tt 5)
        (repeat 4
          (setq y 0)
          (repeat 10
            (setq e 5)
            (repeat 1
              (setq n 0)
              (repeat 1
                (setq s (1- f))
                (repeat 1
                  (setq i 9)
                  (repeat 1
                    (setq x 1)
                    (repeat 9
                      (setq forty (+ (* 10000 f) (* 1000 o) (* 100 r)
                                     (* 10 tt) y
                                  )
                      )
                      (setq ten (+ (* 100 tt) (* 10 e) n))
                      (setq sixty (+ (* 10000 s) (* 1000 i) (* 100 x)
                                     (* 10 tt) y
                                  )
                      )

                      (if (= (- (- forty ten) ten) sixty)
                        (progn
                          (setq listall (list f o r tt y e n s i x))
                          (setq listall1 (vl-sort listall '<))
                          (if (= (vl-list-length listall)
                                 (vl-list-length listall1)
                              )
                            (setq result (append
                                           result
                                           (list (list forty ten sixty))
                                         )
                            )
                          )
                        )
                      )

                      (setq x (1+ x))
                    )
                    (setq i (1+ i))
                  )
                  (setq s (1+ s))
                )
                (setq n (1+ n))
              )
              (setq e (1+ e))
            )
            (setq y (1+ y))
          )
          (setq tt (1+ tt))
        )
        (setq r (1+ r))
      )
      (setq o (1+ o))
    )
    (setq f (1+ f))
  )
(princ "\n          result = ") (princ result);Erase_DV
(getstring "\nPress Enter to continue...");Erase_DV

)


[/php]

有时间再想想怎么简化了:p

中午不用计算机,在纸上推理了一番,也可以得到这个答案

winabcd

谁有时间就算，下次再改进程序((11010 100 10810))是可以的
(defun tt( / f o r tt y e n s i x result forty ten sixth)
   (setq f 1 )
   (repeat 9
      (setq o 1)
      (repeat 10
         (setq r 0)
         (repeat 10
            (setq tt 1)
            (repeat 10
               (setq y 0)
               (repeat 10
                  (setq e 0)
                  (repeat 10
                     (setq n 0)
                     (repeat 10
                        (setq s 1)
                        (repeat 9
                           (setq  i 0)
                           (repeat 10
                              (setq x 0)
                              (repeat 10
                                 (setq forty (+ (* f 10000) (* o 1000) (* r 100) (* tt 10) y)
                                       ten (+ (* tt 100) (* e 10) n)
                                       sixty (+ (* s 10000) (* i 1000) (* x 100) (* tt 10) y)
                                       )
                                 (if (= (- forty ten ten) sixty)
                                    (progn
                                       (setq result (cons (list forty ten sixty) result))
                                       (print result)
                                                                            )
                                    )
                                 (setq x (1+ x))
                                 );x
                              (setq i (1+ i))
                              );i
                           (setq s (1+ s))
                           );s
                        (setq n (1+ n))
                        );n
                     (setq e (1+ e))(print e)
                     );e
                  (setq y (1+ y))
                  );y
               (setq tt (1+ tt))
               );tt
            (setq r (1+ r))(print "r")
            );r
         (setq o (1+ o))
         );o
      (setq f (1+ f))(print f)
      );f
   (print result)
   (princ)
   )

yjtdkj

太强了，真羡慕呀，
小弟还只是刚入门，连题都没有搞懂：）

xyp1964

最初由 winabcd 发布
[B]谁有时间就算，下次再改进程序((11010 100 10810))是可以的
(defun tt( / f o r tt y e n s i x result forty ten sixth)
   (setq f 1 )
   (repeat 9
      (setq o 1)
      (repeat 10
         (setq r 0)
         (r... [/B]

要考虑字母不同其数值也要不同！

snoopychen

其实这道题就是小学奥数里面那些什么米虫问题吧
这个题目,用推理法,可以知道e和n就是0或5,再判断一次就知道e是5,n是0
由于T+T<20,所以O是0或者1,不可能是0,那么就是1
而对于I而言,必定是9,这是因为O是1
然后可以判断出F-S=1
T+T不小于10,所以T是5或以上数据
剩下的几个数,存在着一定的关系,简单判断3~5次就可以把他们就位的
最后一步稍微编下程,大概0.01秒就可以得到结果的,就不编了

xyp1964

2楼程序修改

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (cmdla0)
   
5.   (setq        f 1
   
6.         E 5
   
7.         N 0
   
8.   )
   
9.   (while (< f 9)
   
10.     (setq f (1+ f)
    
11.           o 0
    
12.     )
    
13.     (if        (/= f 5)
    
14.       (while (< o 2)
    
15.         (setq o        (1+ o)
    
16.               r        0
    
17.         )
    
18.         (if (and
    
19.               (/= o 5)
    
20.               (/= o f)
    
21.             )
    
22.           (while (< r 9)
    
23.             (setq r  (1+ r)
    
24.                   tt 0
    
25.             )
    
26.             (if        (and
    
27.                   (/= r 5)
    
28.                   (/= r o)
    
29.                   (/= r f)
    
30.                 )
    
31.               (while (< tt 9)
    
32.                 (setq tt (1+ tt)
    
33.                       y         0
    
34.                 )
    
35.                 (if (and
    
36.                       (/= tt 5)
    
37.                       (/= tt o)
    
38.                       (/= tt f)
    
39.                       (/= tt r)
    
40.                     )
    
41.                   (while (< y 9)
    
42.                     (setq y (1+ y)
    
43.                           s 0
    
44.                     )
    
45.                     (if        (and
    
46.                           (/= y 5)
    
47.                           (/= y o)
    
48.                           (/= y f)
    
49.                           (/= y r)
    
50.                           (/= y tt)
    
51.                         )
    
52.                       (while (< s 9)
    
53.                         (setq s        (1+ s)
    
54.                               i        0
    
55.                         )
    
56.                         (if (and
    
57.                               (/= s 5)
    
58.                               (/= S o)
    
59.                               (/= S f)
    
60.                               (/= S r)
    
61.                               (/= S tt)
    
62.                               (/= S Y)
    
63.                             )
    
64.                           (while (< i 9)
    
65.                             (setq i (1+ i)
    
66.                                   x 0
    
67.                             )
    
68.                             (if        (and
    
69.                                   (/= I 5)
    
70.                                   (/= I o)
    
71.                                   (/= I f)
    
72.                                   (/= I r)
    
73.                                   (/= I tt)
    
74.                                   (/= I Y)
    
75.                                   (/= I S)
    
76.                                 )
    
77.                               (while (< x 9)
    
78.                                 (setq x (1+ x))
    
79.                                 (if
    
80.                                   (and
    
81.                                     (/= X 5)
    
82.                                     (/= X o)
    
83.                                     (/= X f)
    
84.                                     (/= X r)
    
85.                                     (/= X tt)
    
86.                                     (/= X Y)
    
87.                                     (/= x S)
    
88.                                     (/= x I)
    
89.                                     (= (- (+ (* 10000 f)
    
90.                                              (* 1000 o)
    
91.                                              (* 100 r)
    
92.                                              (* 10 tt)
    
93.                                              y
    
94.                                           )
    
95.                                           (* (+ (* 100 tt) (* 10 5) 0) 2)
    
96.                                        )
    
97.                                        (+ (* 10000 s)
    
98.                                           (* 1000 i)
    
99.                                           (* 100 x)
    
100.                                           (* 10 tt)
     
101.                                           y
     
102.                                        )
     
103.                                     )
     
104.                                   )
     
105.                                    (mapcar 'princ
     
106.                                            (list "\nFORTY = "     F
     
107.                                                  O        R      TT
     
108.                                                  Y        "\n  TEN = "
     
109.                                                  TT        E      N
     
110.                                                  "\nSIXTY = "     S
     
111.                                                  I        X      TT
     
112.                                                  Y
     
113.                                                 )
     
114.                                    )
     
115.                                 )
     
116.                               )
     
117.                             )
     
118.                           )
     
119.                         )
     
120.                       )
     
121.                     )
     
122.                   )
     
123.                 )
     
124.               )
     
125.             )
     
126.           )
     
127.         )
     
128.       )
     
129.     )
     
130.   )
     
131.   (get-time)
     
132.   (cmdla1)
     
133. )
     
134. [/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        f 1<br />         E 5<br />         N 0<br />   )<br />   (while (< f 9)<br />     (setq f (1+ f)<br />           o 0<br />     )<br />     (if        (/= f 5)<br />       (while (< o 2)<br />         (setq o        (1+ o)<br />               r        0<br />         )<br />         (if (and<br />               (/= o 5)<br />               (/= o f)<br />             )<br />           (while (< r 9)<br />             (setq r  (1+ r)<br />                   tt 0<br />             )<br />             (if        (and<br />                   (/= r 5)<br />                   (/= r o)<br />                   (/= r f)<br />                 )<br />               (while (< tt 9)<br />                 (setq tt (1+ tt)<br />                       y         0<br />                 )<br />                 (if (and<br />                       (/= tt 5)<br />                       (/= tt o)<br />                       (/= tt f)<br />                       (/= tt r)<br />                     )<br />                   (while (< y 9)<br />                     (setq y (1+ y)<br />                           s 0<br />                     )<br />                     (if        (and<br />                           (/= y 5)<br />                           (/= y o)<br />                           (/= y f)<br />                           (/= y r)<br />                           (/= y tt)<br />                         )<br />                       (while (< s 9)<br />                         (setq s        (1+ s)<br />                               i        0<br />                         )<br />                         (if (and<br />                               (/= s 5)<br />                               (/= S o)<br />                               (/= S f)<br />                               (/= S r)<br />                               (/= S tt)<br />                               (/= S Y)<br />                             )<br />                           (while (< i 9)<br />                             (setq i (1+ i)<br />                                   x 0<br />                             )<br />                             (if        (and<br />                                   (/= I 5)<br />                                   (/= I o)<br />                                   (/= I f)<br />                                   (/= I r)<br />                                   (/= I tt)<br />                                   (/= I Y)<br />                                   (/= I S)<br />                                 )<br />                               (while (< x 9)<br />                                 (setq x (1+ x))<br />                                 (if<br />                                   (and<br />                                     (/= X 5)<br />                                     (/= X o)<br />                                     (/= X f)<br />                                     (/= X r)<br />                                     (/= X tt)<br />                                     (/= X Y)<br />                                     (/= x S)<br />                                     (/= x I)<br />                                     (= (- (+ (* 10000 f)<br />                                              (* 1000 o)<br />                                              (* 100 r)<br />                                              (* 10 tt)<br />                                              y<br />                                           )<br />                                           (* (+ (* 100 tt) (* 10 5) 0) 2)<br />                                        )<br />                                        (+ (* 10000 s)<br />                                           (* 1000 i)<br />                                           (* 100 x)<br />                                           (* 10 tt)<br />                                           y<br />                                        )<br />                                     )<br />                                   )<br />                                    (mapcar 'princ<br />                                            (list "\nFORTY = "     F<br />                                                  O        R      TT<br />                                                  Y        "\n  TEN = "<br />                                                  TT        E      N<br />                                                  "\nSIXTY = "     S<br />                                                  I        X      TT<br />                                                  Y<br />                                                 )<br />                                    )<br />                                 )<br />                               )<br />                             )<br />                           )<br />                         )<br />                       )<br />                     )<br />                   )<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (get-time)<br />   (cmdla1)<br /> )<br /> [/FONT]

命令: TEST
FORTY = 31486
  TEN = 850
SIXTY = 29786
用时 : 0 小时0 分0.68 秒

winabcd

5楼程序的改进，求出一个解答立即退出，用时约14秒，全部算完用时约243秒。
速度是慢了点，但只要在JS函数中改一个字母，就可算FORTY-TEE-TEE=SIXTY
结果为（41275-700-700=39875），
(defun test( / f o r tt y e n s i x result result1 st se)
   (setq st (getvar "DATE"))
   (setq st (* 86400.0 (- st (fix st))))
   (setq f 1 )
   (repeat 9
      (setq o 1)
      (repeat 9
         (setq o (if (= o f) (1+ o) o))
         (setq r 0)
         (repeat 8
            (repeat 2
               (setq r (if (= r f) (1+ r) r))
               (setq r (if (= r o) (1+ r) r))
               )
            (setq tt 1)
            (repeat 7
               (repeat 3
                  (setq tt (if (= tt f) (1+ tt) tt))
                  (setq tt (if (= tt o) (1+ tt) tt))
                  (setq tt (if (= tt r) (1+ tt) tt))
                  )
               (setq y 0)
               (repeat 6
                  (repeat 4
                     (setq y (if (= y f) (1+ y) y))
                     (setq y (if (= y o) (1+ y) y))
                     (setq y (if (= y r) (1+ y) y))
                     (setq y (if (= y tt) (1+ y) y))
                     )
                  (setq e 0)
                  (repeat 5
                     (repeat 5
                        (setq e (if (= e f) (1+ e) e))
                        (setq e (if (= e o) (1+ e) e))
                        (setq e (if (= e r) (1+ e) e))
                        (setq e (if (= e tt) (1+ e) e))
                        (setq e (if (= e y) (1+ e) e))
                        )
                     (setq n 0)
                     (repeat 4
                        (repeat 6
                           (setq n (if (= n f) (1+ n) n))
                           (setq n (if (= n o) (1+ n) n))
                           (setq n (if (= n r) (1+ n) n))
                           (setq n (if (= n tt) (1+ n) n))
                           (setq n (if (= n y) (1+ n) n))
                           (setq n (if (= n e) (1+ n) n))
                           )
                        (setq s 1)
                        (repeat 7
                           (setq s (if (= s f) (1+ s) s))
                           (setq s (if (= s o) (1+ s) s))
                           (setq s (if (= s r) (1+ s) s))
                           (setq s (if (= s tt) (1+ s) s))
                           (setq s (if (= s y) (1+ s) s))
                           (setq s (if (= s e) (1+ s) s))
                           (setq s (if (= s n) (1+ s) s))
                           )
                        (while (< s f)
                           (setq  i 0)
                           (repeat 2
                              (repeat 8
                                 (setq i (if (= i f) (1+ i) i))
                                 (setq i (if (= i o) (1+ i) i))
                                 (setq i (if (= i r) (1+ i) i))
                                 (setq i (if (= i tt) (1+ i) i))
                                 (setq i (if (= i y) (1+ i) i))
                                 (setq i (if (= i e) (1+ i) i))
                                 (setq i (if (= i n) (1+ i) i))
                                 (setq i (if (= i s) (1+ i) i))
                                 )
                              (setq x 0)
                              (repeat 9
                                 (setq x (if (= x f) (1+ x) x))
                                 (setq x (if (= x o) (1+ x) x))
                                 (setq x (if (= x r) (1+ x) x))
                                 (setq x (if (= x tt) (1+ x) x))
                                 (setq x (if (= x y) (1+ x) x))
                                 (setq x (if (= x e) (1+ x) x))
                                 (setq x (if (= x n) (1+ x) x))
                                 (setq x (if (= x s) (1+ x) x))
                                 (setq x (if (= x i) (1+ x) x))
                              (if (setq result1 (js f o r tt y e n s i x))
                                 (progn
                                    (setq result (cons result1 result))
                                    (print result)
                                    (setq se (getvar "DATE"))
                                    (setq se (* 86400.0 (- se (fix se))))
                                    (print "time=")(princ (- se st))
                                    (exit)
                                    )
                                 )
                                 ;(setq x (1+ x))
                                 )
                                 ;);x
                              (setq i (1+ i))
                              );i
                           (setq s (1+ s))
                           (setq s (if (= s f) (1+ s) s))
                           (setq s (if (= s o) (1+ s) s))
                           (setq s (if (= s r) (1+ s) s))
                            (setq s (if (= s tt) (1+ s) s))
                           (setq s (if (= s y) (1+ s) s))
                           (setq s (if (= s e) (1+ s) s))
                           (setq s (if (= s n) (1+ s) s))
                           );s
                        (setq n (1+ n))
                        );n
                     (setq e (1+ e))
                     );e
                  (setq y (1+ y))
                  );y
               (setq tt (1+ tt))
               );tt
            (setq r (1+ r))
            );r
         (setq o (1+ o))
         );o
      (setq f (1+ f))(print "f=")(princ f)
      );f
   (print result)
   (setq se (getvar "DATE"))
   (setq se (* 86400.0 (- se (fix se))))
   (print "time=")(princ (- se st))
   (princ)
   )


(defun js(f o r tt y e n s i x / forty ten sixth )
   (setq forty (+ (* f 10000) (* o 1000) (* r 100) (* tt 10) y)
         ten (+ (* tt 100) (* e 10) n)
         sixty (+ (* s 10000) (* i 1000) (* x 100) (* tt 10) y)
         )
   (if (= (- forty ten ten) sixty)
      (list forty ten sixty)
      nil
      )
   )

xyp1964

最初由 winabcd 发布
[B]5楼程序的改进，求出一个解答立即退出，用时约14秒，全部算完用时约243秒。
速度是慢了点，但只要在JS函数中改一个字母，就可算FORTY-TEE-TEE=SIXTY
结果为（41275-700-700=39875），
(defun test( / f o r tt y ... [/B]

结论错误。
要求：每个字母代表一个小于10且不相等的自然数。

winabcd

我把TEN改成TEE后算出的（41275-700-700=39875）
如不改（我帖的程序就没改）处出的是（31486-850-850=29786），和你算的一样，
我想说的是，我的程序慢一些，但如改变字母的排列，只要稍作改动，就能用了。

snoopychen

xyp版主啊
这道题的名字要是改成
SIXTY-TEN-TEN=FORTY
不是即符合英文说法,又符合数学规则,更有趣么:p

狂刀

难道1+1=1不比1+1=2更有趣么？呵呵

whfdchst

太高深,看不懂.