在线等，谁会算回文

patagonia2

• 事实上，一个回文从两头读是相同的。
• 由两位数相乘得到的最大回文是：9009=91*99。
  

试求得由 三位数 相乘得到的 最大 回文。
题目很容易理解。
但是，代码写出来困难。

大圣谁会算回文。
希望大圣能够指导， 在线等，急死了

patagonia2

1. %-module(e).
   
2. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).
   
3. 
   
4. palindrome(X) ->
   
5.     Y = integer_to_list(X),
   
6.     Y == lists:reverse(Y).
   
7. main(_) ->
   
8.     TEST1 = palindrome(12321),
   
9.     TEST2 = palindrome(123210),
   
10.     ?PP (TEST1), ?PP (TEST2),
    
11. halt().
    

复制代码

patagonia2

谁会算

100 * 100 到 999 * 999

patagonia2

感受一下这个慢
谁会折腾高效的写法。

1. %-module(x).
   
2. 
   
3. -define (P (V), io:format ("~p ", [V])).
   
4. -define (PP (V), io:format ("~n~s = ~p~n", [??V, V])).
   
5. 
   
6. loop (A, A, A, _, MAX) -> MAX;
   
7. loop (A, B, B, P, MAX) -> loop (A + 1, A + 1, B, P, MAX);
   
8. loop (A, B, C, P, MAX) ->
   
9.     AB = A * B,
   
10.     case AB > MAX andalso P(AB) of
    
11.         true -> ?P (AB), loop (A, B + 1, C, P, AB);
    
12.         ____ -> loop (A, B + 1, C, P, MAX) end.
    
13.         
    
14. main(_) ->
    
15.     Palindrome = fun (X) ->
    
16.         Y = integer_to_list (X),
    
17.         Y == lists:reverse (Y) end,
    
18.     A   = 100,
    
19.     B   = 999 + 1,
    
20.     MAX = loop ( A, A, B, Palindrome, 0),
    
21.     ?PP (MAX),
    
22. halt().
    

复制代码

patagonia2

1.2 秒
-mode(native).

1. -module(p).
   
2. -mode(native).
   
3. -define(P(V), io:format("~p ", [V])).
   
4. -define (PP (V), io:format ("~n~s = ~p~n", [??V, V])).
   
5. 
   
6. 
   
7. loop(A, A, A, _, MAX) -> MAX;
   
8. loop(A, B, B, P, MAX) -> loop(A + 1, A + 1, B, P, MAX);
   
9. loop(A, B, C, P, MAX) ->
   
10.     AB = A * B,
    
11.     case AB > MAX andalso P(AB) of
    
12.       true -> ?P(AB), loop(A, B + 1, C, P, AB);
    
13.       ____ -> loop(A, B + 1, C, P, MAX)
    
14.     end.
    
15.    
    
16. palindrome(X) ->
    
17.     Y = integer_to_list(X),
    
18.     Y == lists:reverse(Y).
    
19. 
    
20. main(_) ->
    
21.     A = 100,
    
22.     B = 999 + 1,
    
23.     Palindrome = fun (Y) -> palindrome(Y) end,
    
24.     MAX = loop(A, A, B, Palindrome, 0),
    
25.     ?PP(MAX),
    
26. halt().
    

复制代码

patagonia2

执行结果快了12倍，
这个性能的提升还是比较可观的。