批处理彩色蜿蜒曲线

523066680

尽管在没有加色彩之前这个代码受过批评，
觉得还可以，添油加醋，终究还是发上来了。
祝君心情愉快。

1. @echo off
   
2. ::code by 523066680 / if_exist
   
3. setlocal enabledelayedexpansion
   
4. for /l %%a in (1,1,80) do (set k= !k!)
   
5. set /a a=7,b=-6,color=0
   
6. set /p= <nul>OO
   
7. :a
   
8.   set /a color+=1
   
9.   if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
   
10.   if %b% equ 6 (set /a a=6,b=-6)
    
11.   for %%a in (a b) do (
    
12.      set /p a=!k:~0,%x%!<nul
    
13.      findstr /a:%color%  "OO*"
    
14.      echo,
    
15.   )
    
16.   ping -n 1 127.1>nul
    
17. if %color% leq 200 goto :a
    
18. pause

复制代码

xxx

顶贴!拿分!走人.

当时我囧了一下,原来exist家是开发廊的啊~

523066680

无语……

PakTC

喜欢小一点的

1. @echo off
   
2. set /p= <nul>#
   
3. setlocal enabledelayedexpansion
   
4. for /l %%a in (1,1,80) do (set k= !k!)
   
5. set /a a=7,b=-6
   
6. 
   
7. :a
   
8. set /a ee+=1
   
9. if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
   
10. if %b% geq 6 (set /a b=-6,a=6)
    
11. set /p a=!k:~0,%x%!<nul
    
12. findstr /a:%ee%  "#*"
    
13. echo,
    
14. ping -n 1 127.1>nul
    
15. goto :a

复制代码

zljzsmzzx

有意思。。。学习学习。。