CrLf

这只是另一种思路而已，总有适合它的背景。上次生命游戏给我的教训是变量越多速度越慢，以至于后来一个循环耗时前后居然相差了十几倍，所以现在写代码时总会考虑变量的增加对效率的影响

caruko

这个在随机排序大量文本的时候是不错，没有临时，没有大量变量，但是效率有点低。

1：echo更耗时，增加了echo次数。
2：sort 本身也是很耗内存的，sort /? 帮助命令看一下就能了解。N个排序对象，在SORT里，产生N个变量用来存放是至少的。set的机制不了解，但似乎在变量存放的时候就是有序的。
3：“ | sort + for”，echo完所有内容进入管道后，SORT才开始排序，SORT排序完并输出所有内容后，FOR开始读取。 所以耗时成倍增加。

CrLf

不一样吧，我的思路是直接分析自身输出，不需要定义大量变量
要不是字数已经超过31，用tokens+random来截取估计是最快的办法了

caruko

楼上这个，方法跟我那个差不多吧，只是我用set 排序，你用sort。

最早的时候，我想过一种类似洗扑克牌的乱序方法。

1：随机将后一个字符放在前一个字符的前面或者后面，组合成新的字符串。
2：将新字符串再一次洗牌，循环随机20-40次。(估计了一下40个字符20次差不多能做到足够乱序了)

只是思路的一种吧，细想了一下，发现效率不怎么高，就没继续了。

CrLf

另一种乱序输出思路：

@echo off&setlocal enabledelayedexpansion&2>nul 3>nul echo %time%
for /f "skip=14 useback" %%a in ("%~0") do set str=!str!%%a
if "%1"==":" (
	for /l %%a in (0 1 39) do echo !random!@!str:~%%a,1!@%%a
	exit /b
)
for /f "tokens=2,3 delims=@" %%a in ('%0 : ^|sort') do (
	set echo=!echo!%%a
	set /a x=n%%8-%%b%%8,y=n/8-%%b/8,n+=1,m=n%%8,1/m||set echo=!echo!,
	set "xy=!xy!   !x!: !y!   "
)
for %%a in (!echo!) do echo %%a
echo %xy: -=-%
echo %time%&pause>nul&exit

我们去北大踢球吧
快上那儿等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

batman

14楼的思路是比较巧妙，但美中不足就是set/p输出影响了效率。。。

下面给出一种乱序的方法（先替换a为#，再替换b为a,最后替换#为b从而达到a、b互换的效果）：

@echo off&setlocal enabledelayedexpansion
set "#0=&echo,"
for /f "skip=22" %%a in (%~0) do set "str=!str!%%a"
for /l %%a in (0,1,39) do (
    set /a a=!random!%%40
    for %%b in (!a!) do (
        set "a=!str:~%%b,1!"
        for %%b in ("!str:~%%a,1!") do (
            for %%c in (!a!) do (
                set "str=!str:%%c=#!"
                set "str=!str:%%~b=%%c!"
                set "str=!str:#=%%~b!"
            )
        )
    )
)
for /l %%a in (0,1,39) do (
    set /a "a=(%%a+1)%%8"
    for %%b in (!a!) do set "var=!var!!str:~%%a,1!!#%%b!"
)
echo %var%
pause>nul&goto :eof
我们去北大踢球吧
快上那儿等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

　注：因为每次都是两个汉字互换位置（有时可能是自己换自己），所以偏移量的计算会要借助临时文件来实现。

CrLf

其实我本意只是想提出一个随机取值的思路，因为常规思路要定义大量变量，很容易影响P的整体性能，不过话说回来，估计那个办法大概早有人发明了吧...

CrLf

10# zm900612
下面是阁下代码的一次运行结果：
就死门离们上吧间
死生就着们踢离大
开我不离儿去去儿
快等北快北我去快
我大大们去们们我
batman 发表于 2011-4-21 18:59

当时只是为了表达思路，几分钟搞出来也没测试就回了，所以没发现这个问题...出错原因是漏了""，而且后来发现给定的文字中有重字，所以不能用变量替换取巧。
原帖就不改了，发一下新代码，这回是调试过无误的：

@echo off&setlocal enabledelayedexpansion&echo %time%
for /f "skip=14 useback" %%a in ("%~0") do set str=!str!%%a
for /l %%a in (1 1 39) do set .!str:~%%a,1!=%%a
for /l %%a in (40 -1 1) do (
	set /a "ra=!random!%%%%a","m=~-%%a%%8",n=ra+1
	for %%b in ("str:~!ra!,1") do (
		set /a "p=(40-%%a)-.!%%~b!","x=(40-%%a)%%8-.!%%~b!%%8","y=(40-%%a)/8-.!%%~b!/8"
		set "echo=!echo!!%%~b!"&set "xy=!xy!   !x!: !y!   "
		for /f "tokens=1* delims=@" %%c in ("!ra!@!n!") do set str=!str:~0,%%~c!!str:~%%~d!
	)
)
for /l %%a in (0 8 32) do echo !echo:~%%a,8!
echo %xy: -=-%
echo %time%&pause>nul&exit
我们去北大踢球吧
快上那儿等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

优化了一下，用时减少一半

batman

期待更多的解。。。。

@echo off&setlocal enabledelayedexpansion
for /l %%a in (101,1,140) do set "a=%%a"&set "code=!code!#!a:~1!#"
set /a num=40&set "#0=&echo,"
for /f "skip=23" %%a in (%~0) do (
    set "str=%%a"&set /a h+=1
    for /l %%a in (0,1,7) do (
        set /a a=!random!%%num,num-=1,a*=4
        for %%b in (!a!) do (
            for %%b in ("!code:~%%b,4!") do (
                set "a=%%~b"&set "a=!a:#=!"&set "code=!code:%%~b=!"
                set /a a=1!a!%%100,hm=a/8+1-h,"lm=(a-1)%%8-%%a"
                for %%b in (h l) do if "!%%bm:-=!" equ "!%%bm!" set "%%bm= !%%bm!" 
                set "_!a!=!str:~%%a,1!"&set ".!a!=!hm!:!lm!"            
            )
        )
    )
)
for /l %%a in (1,1,40) do (
    set "a=      !.%%a!"&set /a b=%%a%%8
    for %%b in (!b!) do set "var=!var!!_%%a!!#%%b!"&set "var1=!var1!!a:~-6!!#%%b!"
)
echo %var%&echo %var1%
pause>nul&goto :eof
我们去北大踢球吧
快上那儿等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

batman

10# zm900612
下面是阁下代码的一次运行结果：
就死门离们上吧间
死生就着们踢离大
开我不离儿去去儿
快等北快北我去快
我大大们去们们我

batman

难道题意不是已知的。。。

CrLf

特殊情况有特殊解法：

@echo off&setlocal enabledelayedexpansion
for /f "skip=11 useback" %%a in ("%~0") do set str=!str!%%a
	for /l %%a in (40 -1 1) do (
		set /a ra=!random!%%%%a,m=~-%%a%%8
		for %%b in (!ra!) do (
			set /p=!str:~%%b,1!<nul
			for %%c in (!str:~%%b,1!) do set str=!str:%%c=!
		)
	if !m!==0 echo;
)
pause>nul&exit
我们去北大踢球吧
快上那儿等着信号
你不能离开大门口
生与死就在一瞬间
青春已从身边溜走
复制代码

terse

已知的  我直接40个  ECHO

batman

乱序思路：
　　因为原始文本是5行共40个汉字，所以设置一个code变量，其值为010203...383940。然后每读取一个汉字随机取一次值（初始是对40随机取位置的值），同时将根据随机取得的位置值查找code中对应的值并将汉字存进这个值变量，再从code中删除这个值并将总数值减一，最后所有的汉字都被乱序并储存到了01－40的变量中。

terse

已知行数和字符数 是否可以再简化点 个人感觉 乱序排列的SET效率并不很理想
两个边字的问题 可以放入的吧 因乱序后还是可以对应的哦