题目42：这个英语词列表里共有多少个三角形词？

debuggerzh

162

Process returned 0 (0x0)   execution time : 0.054 s
Press any key to continue.
又可以利用Excel VBA处理源文件使之易于输入

1. Public Sub PE42()
   
2.     Open "C:\Users\zcfcf\Desktop\words.txt" For Input As #1
   
3.     Dim s As String
   
4.     Dim cnt As Integer
   
5.     cnt = 1
   
6.     Do Until EOF(1)
   
7.         Input #1, s
   
8.         Range("a" & CStr(cnt)).Value = s
   
9.         cnt = cnt + 1
   
10.     Loop
    
11.     Close #1
    
12. End Sub
    

复制代码

接着利用ASCII码天然的编码特性计算单词的值，并加以统计

1. #include<iostream>
   
2. #include<cstdio>
   
3. #include<string>
   
4. using namespace std;
   
5. 
   
6. const int a[] = {1, 3, 6, 10, 15, 21, 28, 36, 45, 55, 66, 78, 91, 105, 120, 136,
   
7.                 153, 171, 190, 210, 231, 253, 276, 300, 325, 351};
   
8. 
   
9. int calc(const string & s){
   
10.   int res = 0;
    
11. 
    
12.   for (int i = 0;i < s.length();i++)
    
13.     res += s[i] - 'A' + 1;
    
14. 
    
15.   return res;
    
16. }
    
17. 
    
18. int main(){
    
19.   freopen("i.in","r",stdin);
    
20.   string s;
    
21.   int cnt = 0;
    
22. 
    
23.   while(cin >> s){
    
24.     int t = calc(s);
    
25.     for (int i = 0;a[i] <= 351;i++)
    
26.       if (t == a[i])  { cnt++;    break; }
    
27.   }
    
28. 
    
29.   cout << cnt << endl;
    
30.   return 0;
    
31. }
    

复制代码