[高0]求最短的代码.

lwwvb

要求用户输入一个字串,电脑输出这个字串的全排序,如:

当用户输入"ABC"时,电脑输出:

ABC

ACB

BAC

BCA

CAB

CBA

当用户输入"ABCD"时,电脑输出:

ABCD

ABDC

ACBD

ACDB

...

最短代码者胜出![em03]

lwwvb

情比金坚的答案不行呀,我输入了ABC之后再执行,没有输出正确的答案..有人能做这题吗?[em08]

lwwvb

这种算法是不行的.你使用RND来求所有的可能排序,如果用户输入的字串很长,如"abcdefg",序列的数量就会非常多,RND什么时候才能碰得完所有的序列?很可能等上非常上的时间才能完成,或者永远也完成不了,因为RND是一个未知值,等待的时间也是未知的!!![em06]我用的算法,只是执行几条指令就可以马上得到新的排序.而且是按顺序的.所有指令执行完的话,就已经求出了全部的排序.千万不能少看这题目,有兴趣的人可以做做....[em07]

lwwvb

Trynew的方法可是强哦,我用的是纯计算方法.看来TryNew的代码是最短了.哈哈....[em02]

lwwvb

插入一个模块,再运行RunMe就可以了.

Dim InPutString As String

Sub GetData(s As String, temp As String)

  Dim i As Integer

  If Len(temp) = Len(InPutString) Then

    MsgBox temp

  Else

    For i = 1 To Len(s)

      GetData Left(s, i - 1) & Right(s, Len(s) - i), temp + Mid(s, i, 1)

    Next i

  End If

End Sub

Sub RunMe()

  InPutString = InputBox("请输入一个字串:", , "ABC")

  GetData InPutString, ""

End Sub





[em05]呵呵,经过代码优化,我只用了11句代码哩!!(不含过程首尾)

[此贴子已经被作者于2005-3-20 23:49:42编辑过]

lwwvb

TRYNEW的方法相当于嵌套N层FOR语句.而我的方法是使用递归.有空的时候,我再出更有趣的题目...[em05]