[数值计算] [挑战]批处理输出若干个字符或数字的排列组合

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-4-16

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2011-4-19 10:20 | 只看该作者

[数值计算] [挑战]批处理输出若干个字符或数字的排列组合

字符的排列组合，一般地，n个数字（不重复）的全排列有n!个组合方式。
这个应该好理解，比如三个字符：a b c，那么他的全排列的所有组合方式就是
a b c
a c b
b a c
b c a
c a b
c b a
----------------
现在征集代码，对指输入的n个字符，输出它的全排列

看哪个代码最快
那个代码最短小？

 @echo off&title 输出任意个字符的排列组合
set/p str=输入字符，并用空格隔开
rem ------------------
rem 你的代码COPY

dooooooooo

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

2楼

发表于 2011-4-19 12:32 | 只看该作者

麻烦发贴前先在论坛搜索下。。。

＊＊＊共同提高＊＊＊

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-4-16

3楼

发表于 2011-4-19 12:47 | 只看该作者

麻烦发贴前先在论坛搜索下。。。
batman 发表于 2011-4-19 12:32

你觉得我没搜索吗？

dooooooooo

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

4楼

发表于 2011-4-19 12:47 | 只看该作者

for嵌套...

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-4-16

5楼

发表于 2011-4-19 12:49 | 只看该作者

for嵌套...
zm900612 发表于 2011-4-19 12:47

我看了那些代码，我的帖子就是要突出“最”字，要不怎么叫“挑战”呢？

dooooooooo

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

6楼

发表于 2011-4-19 12:55 | 只看该作者

6# 舒待子
楼主认为这个贴子和你的有什么实质性的区别？标题不同？
http://www.bathome.net/thread-1701-1-4.html

＊＊＊共同提高＊＊＊

batman

Rank: 8 Rank: 8

帖子: 2702
积分: 14562
技术: 177
捐助: 630
注册时间: 2008-6-16

7楼

发表于 2011-4-19 13:10 | 只看该作者

3楼穷举法，8楼递归法：
http://www.bathome.net/viewthrea ... hlight=%C5%C5%C1%D0

＊＊＊共同提高＊＊＊

asnahu

中尉

Rank: 5 Rank: 5

帖子: 206
积分: 963
技术: 16
捐助: 0
注册时间: 2008-3-9

8楼

发表于 2011-4-19 13:28 | 只看该作者

4# 舒待子

斑竹让你搜索是对的，论坛早就有相关的帖子，浮躁是学不了东西的。

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-4-16

9楼

发表于 2011-4-19 13:39 | 只看该作者

3楼穷举法，8楼递归法：
http://www.bathome.net/viewthrea ... hlight=%C5%C5%C1%D0
batman 发表于 2011-4-19 13:10

看了两个都是你的代码，一个要生产临时文件，另一个还好，
=======================
题外话，我觉得版主有些“倚老卖老”

你以前讨论过就不许别人再发帖讨论了吗？排列组合算法五花八门，我发帖为大家提供再交流平台，怎么就浮躁了

尽管我是用马甲帖，也是看这帖太冷清了。

dooooooooo

Rank: 1

帖子: 6
积分: 28
技术: 0
捐助: 0
注册时间: 2011-4-16

10楼

发表于 2011-4-19 13:42 | 只看该作者

这是我最后一贴，此号作废，论坛官僚味十足。

dooooooooo

caruko

中校

Rank: 6 Rank: 6

帖子: 643
积分: 2335
技术: 50
捐助: 0
注册时间: 2009-12-2

11楼

发表于 2011-4-19 14:07 | 只看该作者

=.=
发表对别人的看法的同时，也看看自己。
你可以坚持自己的想法，但不能强迫别人也有兴趣。
不依自己的想法就是"XX主义"?

Hello123World

如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

Rank: 8 Rank: 8

帖子: 982
积分: 1525
技术: 78
捐助: 0
注册时间: 2010-10-23

12楼

发表于 2011-4-19 15:21 | 只看该作者

不依自己的想法就是"XX主义"！

wc726842270

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 1107
积分: 4218
技术: 37
捐助: 0
注册时间: 2010-6-8

13楼

发表于 2011-4-19 15:24 | 只看该作者

早上就看见这个贴子了，还真没想到跟贴的会这么多。上火

枫中残雪：风停了，我的心却在动，让我心中的寒意走向远方

plp626

贵宾

Rank: 8 Rank: 8

帖子: 640
积分: 2841
技术: 102
捐助: 0
注册时间: 2008-1-17

14楼

发表于 2011-4-21 13:48 | 只看该作者

本帖最后由 plp626 于 2011-5-22 09:34 编辑

这个很短小。

 @echo off
call:perm "a b c xy z"
pause
 
:perm <"c1 c2 ..."> // code by plp
setlocal enabledelayedexpansion&set "s=%~1 "
if "!s: =!" == ""  (echo %~2)else for %%b in (%~1)do call:perm "!s:%%b =!" "%~2 %%b"
endlocal&goto:eofCOPY

这个代码可精简为：

 @echo off&setlocal enabledelayedexpansion
call:perm "a b c xy z"
pause
 
:perm <"c1 c2 ..."> // code by plp
setlocal&set "s=%~1 "&if "!s: =!" == ""  (echo %~2)else for %%b in (%~1)do call:perm "!s:%%b =!" "%~2 %%b"COPY

依据：
setlocal enabledelayedexpansion后，子过程会自动继承变量延迟开启，
call一个子过程，若setlcoal后，在结束该子过程时默认endlocal。。。

2 评分人数

wankoilz: 经典！技术 + 1
zm900612: 堪称完美，值得借鉴技术 + 1

技术娱乐 3802

plp626

贵宾

Rank: 8 Rank: 8

帖子: 640
积分: 2841
技术: 102
捐助: 0
注册时间: 2008-1-17

15楼

发表于 2011-4-21 14:08 | 只看该作者

本帖最后由 plp626 于 2011-5-22 09:30 编辑

这个兼容特殊字符

 @echo off
call:perm "< & > plp |"
pause
 
:perm <"s1 s2 ..."> 
setlocal enabledelayedexpansion&set "s= %~1"&for /f "tokens=*" %%a in ("%~1")do Set "ss=%%a"
if "!s: =!" == ""  (echo "%~2 ") else for %%b in ("!ss: =" "!")do call:perm "!s: %%~b=!" "%~2 %%~b"
endlocal&goto:eofCOPY

这个可精简为：

 @echo off&setlocal enabledelayedexpansion
call:perm "< & > plp |"
pause
 
:perm <"s1 s2 ..."> 
setlocal&set "s= %~1"&for /f "tokens=*" %%a in ("%~1")do Set "ss=%%a"
if "!s: =!" == ""  (echo "%~2 ") else for %%b in ("!ss: =" "!")do call:perm "!s: %%~b=!" "%~2 %%~b"COPY

依据：
setlocal enabledelayedexpansion后，子过程会自动继承变量延迟开启，
call一个子过程，若setlcoal后，在结束该子过程时默认endlocal。。。

技术娱乐 3802