[ 新手练习 10 ] 批处理“切香肠”

wxcute

要过年了，来切香肠！
一根香肠分 9 节，每节颜色都不同，要切成 3 节一段的；
有许多同样的 9 节香肠，共能切出多少种不同的 3 节香肠呢？
附加问题（2009-05-10 补充）：共需要多少根香肠？

目的：自己假设变量模拟香肠（吃不得是当然的^_^），学习变量截取结合条件判断的综合运用方法。

要求：通过计算显示出结果。方法不限。

评分：代码可读性 1 分，思路新颖多加 2 分；
　　　首个新方法 5 分，第二个 4 分，依次类推，最少 2 分；
　　　一人可多种方法，新方法追加 3 分，已经出现过的方法追加 1 分。

[ 本帖最后由 wxcute 于 2009-5-10 10:20 编辑 ]

BBCC

貌似有点不懂
1 2 3 4
是只可以 这样：
123
234

吗？

wxcute

没错，就是 2 楼 BBCC 的这个意思。因为你不可能把 1 和 4 单独切在一起罢！

BBCC

1*2+2*(9-2)

梦想种子

普通思路：

1. @echo off
   
2. set "str=123456789"
   
3. echo sausage: %str%
   
4. echo When they were cut:
   
5. :next
   
6. set var=%str:~0,3%
   
7. if not (%var:~2,1%) == () (
   
8. set /p=%var% <nul
   
9. set /a c+=1
   
10. set str=%str:~1%
    
11. goto next
    
12. )
    
13. echo.
    
14. echo.Total: %c% kinds.
    
15. pause>nul

复制代码

firewolf85

我是一根香肠

1

2

3

4

5

6

7

8

9

1. @echo off&setlocal enabledelayedexpansion
   
2. set a=0
   
3. set b=0
   
4. for /l %%i in (1 1 7) do (
   
5. set /a a=%%i+1
   
6. set /a b=%%i+2
   
7. echo %%i !a! !b!
   
8. )
   
9. pause>nul

复制代码

firewolf85

应该是这七种吧
123
234
345
456
567
678
789

skuny

@echo off
set /a m=0
call :sas A B C D E F G H I
pause&goto :eof
:sas
set /a m+=1
set /a n=m+1
set /a l=m+2
call echo %%%m% %%%n% %%%l%
if %m%==7 goto :eof
if not %m%==7 goto sas

myzwd

@echo off&setlocal enabledelayedexpansion
set str=123456789
echo original--%str%
echo new element is---
for /l %%i in (1 1 7) do (
  set /a x=%%i
  set /a y=%%i+1
  set /a z=%%i+2
  set /p=!x!!y!!z! <nul
)
rem 利用了等差数列1--7，2--8，3--9
--------------------------------------------------------------------------------------------------------------------------------------
---方法2利用call控制堆栈（多加一个%可以控制call，让call推入堆栈的数据是for的结果，而不是for前的结果）
@echo off
set str=123456789
echo original--%str%
echo new element is---
for /l %%i in (1 1 7) do (
call  set /a x=%%%i
call  set /a y=%%%i+1
call set /a z=%%%i+2
call set /p=%%x%%%%y%%%%z%% <nul
)
rem 利用了等差数列1--7，2--8，3--9

[ 本帖最后由 myzwd 于 2009-3-1 21:49 编辑 ]

irresolute

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /l %%i in (1,1,9) do (
   
4. set /a a=%%i
   
5. set /a b=!a!+1
   
6. set /a c=!b!+1
   
7. if  !c! lss 10  set /a d+=1&echo !a! !b! !c!
   
8. )
   
9. echo 总共有%d%个
   
10. pause>nul

复制代码

keen

我来凑数。见笑！

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set a=123456789
   
4. set /a num=9
   
5. :start
   
6. set b=%a:~0,3%
   
7. set /a num-=1
   
8. set a=!a:~1,%num%!
   
9. if %num%==1 goto end
   
10. echo %b% &echo.
    
11. goto start
    
12. :end
    
13. pause

复制代码

sjzong

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set a=123456789
   
4. set/a num=0
   
5. for /l %%a in  (0 1 6) do echo !a:~%%a,3!&set/a num+=1
   
6. echo 共有 %num% 种方法，方法如上所示！
   
7. pause

复制代码

keiamy

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. :begin
   
4. set "s=123456789"
   
5. set "s=!s:~%m%!"
   
6. :lp
   
7. if %s%0 gtr 1000 (set "str=%s:~,3%") else (set /a m+=1&goto begin)
   
8. if defined var if "!var:%str%=!" neq "%var%" goto end
   
9. set /a n+=1
   
10. set "var=%var% %str%"
    
11. set "s=!s:*%str%=!"
    
12. goto lp
    
13. :end
    
14. echo Total is %m% sausages %n% kinds
    
15. echo%var%
    
16. pause
    

复制代码

PowerShell

1. 
   
2. # powershell也来切香肠
   
3. <#
   
4. 要过年了，来切香肠！
   
5. 一根香肠分 9 节，每节颜色都不同，要切成 3 节一段的；
   
6. 有许多同样的 9 节香肠，共能切出多少种不同的 3 节香肠呢？
   
7. #>
   
8. [array]$结果 = ""
   
9. $香肠总节数 = 9 + 1
   
10. for ($i=1 ;$i -lt $香肠总节数 ;$i++)
    
11. {
    
12.                 $香肠尾 = $i
    
13.                 while (  $香肠尾 -lt  $香肠总节数  )
    
14.                 {
    
15.                                 $香肠头 = $香肠尾
    
16.                                 $香肠尾 = $香肠尾 + 2
    
17.                                 if  ($香肠尾 -lt $香肠总节数)
    
18.                                 {
    
19.                                                 $结果 += $香肠头..$香肠尾 -join ""
    
20.                                 }
    
21.                                 $香肠尾++
    
22.                 }
    
23. }
    
24. $结果  = $结果 | Sort-Object       -Unique
    
25. write-host  $结果
    
26. 
    
27. 
    

复制代码

尘丶

1. @echo off&setlocal enabledelayedexpansion
   
2. set s=123456789
   
3. for /l %%a in (0,1,100) do (
   
4.     set s1=!s:~%%a,3!
   
5.     set s2=!s1:~3!
   
6.     if "!s2!"=="" if !s1! gtr 100 set /a n+=1&echo;!s1!
   
7. )
   
8. echo;!n!
   
9. pause

复制代码