閱讀734 返回首頁    go 阿裏雲 go 技術社區[雲棲]


用遍曆解決某數學題的易語言

這題出的偏門又刁鑽~~

想了 很久 ~~|||||| 

理清了頭緒 算出 用的爆破


  1. * 192 | 384 | 576
  2. * 219 | 438 | 657
  3. * 273 | 546 | 819
  4. * 327 | 654 | 981

代碼


  1. .版本 2
  2. .支持庫 spec
  3. .程序集 窗口程序集1
  4. .程序集變量 數組1, 整數型, , "0"
  5. .程序集變量 數組2, 整數型, , "0"
  6. .程序集變量 數組3, 整數型, , "0"
  7. .子程序 _按鈕1_被單擊
  8. .局部變量 n1, 整數型
  9. .局部變量 m1, 整數型
  10. .局部變量 局變被搜索文字, 文本型
  11. .局部變量 局變搜索文字, 文本型
  12. .局部變量 局變位置, 整數型
  13. .局部變量 t1, 整數型
  14. .局部變量 s1, 整數型
  15. .計次循環首 (999, t1)
  16. 加入成員 (數組1, t1)
  17. .計次循環尾 ()
  18. .計次循環首 (取數組成員數 (數組1), s1)
  19. 加入成員 (數組2, 數組1 [s1] × 2)
  20. 加入成員 (數組3, 數組1 [s1] × 3)
  21. .計次循環尾 ()
  22. .計次循環首 (取數組成員數 (數組1), n1)
  23. .如果真 (數組1 [n1] < 100)
  24. 到循環尾 ()
  25. .如果真結束
  26. .如果真 (數組1 [n1] × 2 = 數組2 [n1] 且 數組1 [n1] × 3 = 數組3 [n1])
  27. 局變被搜索文字 = 到文本 (數組1 [n1]) + 到文本 (數組2 [n1]) + 到文本 (數組3 [n1])
  28. .計次循環首 (10, m1)
  29. 局變搜索文字 = 到文本 (m1 - 1)
  30. 局變位置 = 尋找文本 (局變被搜索文字, 局變搜索文字, , 假)
  31. 局變位置 = 尋找文本 (局變被搜索文字, 局變搜索文字, 局變位置 + 1, 假)
  32. .如果真 (局變位置 ≠ -1)
  33. 跳出循環 ()
  34. .如果真結束
  35. .計次循環尾 ()
  36. .如果真 (局變位置 ≠ -1)
  37. 到循環尾 ()
  38. .如果真結束
  39. .如果真 (尋找文本 (局變被搜索文字, 到文本 (0), , 假) ≠ -1)
  40. 到循環尾 ()
  41. .如果真結束
  42. 調試輸出 (數組1 [n1], 數組2 [n1], 數組3 [n1])
  43. .如果真結束
  44. .計次循環尾 ()

[文件] 爆破 解決數學題.zip ~ 20KB    下載

2.20後續 優化了下的版本~~、 減少了3個變量與兩個記次循環


  1. .版本 2
  2. .支持庫 spec
  3. .程序集 窗口程序集1
  4. .程序集變量 數組1, 整數型, , "0"
  5. .程序集變量 數組2, 整數型, , "0"
  6. .程序集變量 數組3, 整數型, , "0"
  7. .子程序 _按鈕1_被單擊
  8. .局部變量 局變被搜索文字, 文本型
  9. .局部變量 局變位置, 整數型
  10. .局部變量 t1, 整數型
  11. .局部變量 m1, 整數型
  12. .計次循環首 (999, t1)
  13. 加入成員 (數組1, t1)
  14. 加入成員 (數組2, t1 × 2)
  15. 加入成員 (數組3, t1 × 3)
  16. .如果真 (數組1 [t1] < 123)
  17. 到循環尾 ()
  18. .如果真結束
  19. .如果真 (數組1 [t1] × 2 = 數組2 [t1] 且 數組1 [t1] × 3 = 數組3 [t1])
  20. 局變被搜索文字 = 到文本 (數組1 [t1]) + 到文本 (數組2 [t1]) + 到文本 (數組3 [t1])
  21. .計次循環首 (10, m1)
  22. 局變位置 = 尋找文本 (局變被搜索文字, 到文本 (m1 - 1), , 假)
  23. 局變位置 = 尋找文本 (局變被搜索文字, 到文本 (m1 - 1), 局變位置 + 1, 假)
  24. .如果真 (局變位置 ≠ -1)
  25. 跳出循環 ()
  26. .如果真結束
  27. .計次循環尾 ()
  28. .如果真 (局變位置 ≠ -1)
  29. 到循環尾 ()
  30. .如果真結束
  31. .如果真 (尋找文本 (局變被搜索文字, 到文本 (0), , 假) ≠ -1)
  32. 到循環尾 ()
  33. .如果真結束
  34. 調試輸出 (數組1 [t1], 數組2 [t1], 數組3 [t1])
  35. .如果真結束
  36. .計次循環尾 ()

最後更新:2017-04-03 22:30:57

  上一篇:go iOS開發那些事-表視圖UI設計模式
  下一篇:go declare-styleable中format詳解