Project Euler - 004

icymirror

Problem 4:
A palindromic number reads the same both ways. The largest palindrome made from the product of two 2-digit numbers is 9009 = 91 × 99.
Find the largest palindrome made from the product of two 3-digit numbers.

问题4：
一个回文数从两头读是相同的。由两位数相乘得到的最大回文数是：9009=91*99。
试找出由三位数相乘得到的最大回文数。

代码：

1. package main
   
2. 
   
3. import (
   
4.         "math"
   
5.         "strconv"
   
6. )
   
7. 
   
8. func IsPalindrome(number int) bool {
   
9.         // Function could only check number no more than 5 digits
   
10.         // Initialize
    
11.         result := true
    
12.         content := strconv.Itoa(number)
    
13.         length := len(content)
    
14.        
    
15.         // Checking whether number is palindrome
    
16.         for position := 0; position < length / 2; position++ {
    
17.                 if content[position] != content[length - position - 1] {
    
18.                         result = false
    
19.                         break
    
20.                 }
    
21.         }
    
22.        
    
23.         return result
    
24. }
    
25. 
    
26. func Problem004() int {
    
27.         result := 0
    
28.        
    
29.         for index := 100; index < 1000; index++ {
    
30.                 for subIndex := index; subIndex < 1000; subIndex++ {
    
31.                         testNumber := index * subIndex
    
32.                         if (IsPalindrome(testNumber) && testNumber > result) {
    
33.                                 result = index * subIndex
    
34.                         }
    
35.                 }
    
36.         }
    
37.        
    
38.         return result
    
39. }
    
40. 
    
41. func main() {
    
42.         fmt.Println("Problem 004 result: ", Problem004())
    
43. }
    

复制代码

ba_du_co

拿来练练手。
906609

1. #!perl6
   
2. 
   
3. sub mapali ($n) {
   
4.     my ( $a, $b ) = 10 ** ( $n - 1 ), 10 ** $n;
   
5.     [max] ($a ..^ $b).map: -> $x {
   
6.     [max] ($x ..^ $b).map: -> $y {
   
7.         my int $p = $x * $y;
   
8.         $p if $p eq $p.flip;
   
9. } } }
   
10. 
    
11. say mapali 3;
    

复制代码

dorodaloo

欢迎大家发帖讨论，分享是美德

1. package main
   
2. 
   
3. func 回文(数值 int) bool {
   
4.         回文数 := 0
   
5.         for 这个 := 数值; 这个 > 0; 这个 /= 10 {
   
6.                 回文数 = 回文数*10 + 这个%10
   
7.         }
   
8.         return 回文数 == 数值
   
9. }
   
10. 
    
11. func 问题4() {
    
12.         最小, 最大, 最大回文数 := 100, 999, 0
    
13. 
    
14.         for 当前 := 最大; 当前 >= 最小; 当前-- {
    
15.                 for 到达 := 当前; 到达 >= 最小; 到达-- {
    
16.                         这个 := 当前 * 到达
    
17.                         if 这个 <= 最大回文数 { break }
    
18.                         if 回文(这个) { 最大回文数, 最小 = 这个, 这个/当前 }
    
19.                 }
    
20.         }
    
21.         println("由三位数相乘得到的最大回文数是：", 最大回文数)
    
22. }
    
23. 
    
24. func main() { 问题4() }
    
25. 
    

复制代码