[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 happy886rr 于 2016-4-14 17:54 编辑

纯批处理,3.86秒,已经是极限速度了。
  1. @echo off&setlocal enabledelayedexpansion
  2. set "F[1]=00000002"
  3. for /l %%i in (2 1 38) do (
  4. set "F[%%i]=00000000"
  5. )
  6. for /l %%i in (2 1 1000) do (
  7. set add=0
  8. for /l %%j in (1 1 38) do (
  9. set/a tmp=1!F[%%j]!+1!F[%%j]!+add
  10. set/a add=!tmp:~0,1!-2
  11. set F[%%j]=!tmp:~1!
  12. )
  13. )
  14. for /l %%i in (1 1 38) do (
  15. for /l %%j in (0 1 7) do (
  16. set/a "sum+=!F[%%i]:~%%j,1!"
  17. )
  18. )
  19. set/p=数字2的1000次方的各位数字之和为:!sum!
复制代码
----------------------------------------------------------------
python 0.05秒
  1. # Python EulerPJ-016:What is the sum of the digits of the number 2^1000?
  2. q=2**1000;r=0
  3. while q>0:
  4. r+=q%10;q//=10
  5. print(r)
复制代码
二进制位操作不需要时间。

TOP

返回列表