洗牌的技巧

sxqsir

查了一下，delete后面是跟数组元素，不知道delete a 怎么理解，如果delete a[i]的话又变成取随机行了，跟楼主的命令效果一样。其实我只想在一个文本中随机取出一些字符生成另一个文本，我想这应该就是洗牌吧，还望高人们有空的时候再费些唾沫在这里，有机会请喝茶。

waker

for(i in a){c=c" "a[i];delete a[i]}写在循环里行不行哪？

waker

不知道delete a 怎么理解
如果你还没尝试过GREAT GNU AWK，就不用理解了

大蚂蚁

楼主终于露出行踪了,好贴!

sxqsir

原帖由 waker 于 2006-8-1 19:43 发表
for(i in a){c=c" "a;delete a}写在循环里行不行哪？

不行，还只是行随机，ksh,bash效果一样，不知老大什么环境下通过。算了，先告一段落了，弄别的去的了。

waker

怎么试的？贴上来看看

sxqsir

bash-2.03# cat f1
梁白垛刊承卿猜罢搏群霍妹督菠课蕉
稗槐骨瘤趁卷猴迁庞绢祈的旗龟荣爆
砰毕肩吹份寇济寄境弄缄根龚蛮缔跺
槐帕免捌稗氨率腊葫蒂凯妹椒欠闹钳
辩惊古鹿理弛零礼咖霉鼻缉况鸽垄久
bash-2.03# awk 'BEGIN{srand()}{b[rand()" "NR]=$0}END{for(x in b)print b[x]}' f1
稗槐骨瘤趁卷猴迁庞绢祈的旗龟荣爆
槐帕免捌稗氨率腊葫蒂凯妹椒欠闹钳
辩惊古鹿理弛零礼咖霉鼻缉况鸽垄久
砰毕肩吹份寇济寄境弄缄根龚蛮缔跺
梁白垛刊承卿猜罢搏群霍妹督菠课蕉
bash-2.03# awk 'BEGIN{srand()}{for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a)c=c"
"a[i];sub(/^./,"",c);b[rand(),NR]=c;delete a[i];c=""}END{for(x in b)print b[x]}'
f1
梁白垛刊承卿猜罢搏群霍妹督菠课蕉
槐帕免捌稗氨率腊葫蒂凯妹椒欠闹钳
砰毕肩吹份寇济寄境弄缄根龚蛮缔跺
稗槐骨瘤趁卷猴迁庞绢祈的旗龟荣爆
辩惊古鹿理弛零礼咖霉鼻缉况鸽垄久
bash-2.03# awk 'BEGIN{srand()}{for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a){c=c"
"a[i];sub(/^./,"",c);b[rand(),NR]=c;delete a[i]};c=""}END{for(x in b)print b[x]
}' f1
辩惊古鹿理弛零礼咖霉鼻缉况鸽垄久
梁白垛刊承卿猜罢搏群霍妹督菠课蕉
砰毕肩吹份寇济寄境弄缄根龚蛮缔跺
槐帕免捌稗氨率腊葫蒂凯妹椒欠闹钳
稗槐骨瘤趁卷猴迁庞绢祈的旗龟荣爆
bash-2.03#

r2007

不知道什么编码，自行测试。
awk 'BEGIN{srand()}{gsub("..","& ");for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a){c=c""a[i];delete a[i];};b[rand(),NR]=c;c=""}END{for(x in b)print b[x]}'

sxqsir

thanks!

gawk

好帖留名，^_^