批处理解决“易语言难题”

为什么80%的码农都做不了架构师？>>>   

发现还没有Win批处理的，也就是DOS，我来凑个热闹，哈哈～

@maxos   汇总贴

@APPLEUFO   原题链接

不罗嗦，上代码啦：

@echo off
set c_title=批处理来解决易语言问题
title %c_title%
echo %c_title%
echo -=-=-=-=-=-=-=-=-=-=-
setlocal enabledelayedexpansion
for /l %%i in (123,1,329) do (
set /a sum1=%%i*1
set /a sum2=%%i*2
set /a sum3=%%i*3
set "str=!sum1!!sum2!!sum3!"
set /a repeat=0
for /l %%j in (0,1,7) do (
set "s1=!str:~%%j,1!"
set /a s2index=%%j+1
for /l %%k in (!s2index!,1,8) do ( 
set "s2=!str:~%%k,1!"
if !s1!==!s2! set /a repeat+=1 
if !s2!==0 set /a repeat+=1 
))
if !repeat!==0 echo !sum1!,!sum2!,!sum3!
)
pause

转载于:https://my.oschina.net/ldaga/blog/109507