新年散分200!出一个小脚本题目,输入一个正整数n,用脚本输出从1到n的全部排列顺序!

超级大笨狼 2004-01-18 03:00:51
给一个正整数n,用脚本写出从1到n的全部排列顺序!
比如:
输入:3
输出:
123
132
213
231
312
321
不限脚本是js和vbs,要求代码有短暂的美!

...全文
248 134 打赏 收藏 转发到动态 举报
写回复
用AI写文章
134 条回复
切换为时间正序
请发表友善的回复…
发表回复
wozhenbei 2004-02-02
  • 打赏
  • 举报
回复
俺今天才看到,先接分,我想想再跟贴
sandian 2004-02-02
  • 打赏
  • 举报
回复
xeimm 2004-01-30
  • 打赏
  • 举报
回复
up
sandian 2004-01-30
  • 打赏
  • 举报
回复
俺给出一个比较笨的解决方法,大家看看~~顺便接分~
给出的正整数为N,则有1,2,3,4...N个数排序
我的思路是循环,每次循环取一个数,将起变成两头加"."的字符串,用它取代原来结果串内的".",放入结果序列中:
即最先是.1.——>放入2则成.2.1.和.1.2.
再放入3则成(.3.2.1.)(.2.3.1.)(.2.1.3.)(.3.1.2.)(.1.3.2.)(.1.2.3.)
....依此类推可得到最终的序列,其中"."代表了下一个数可能会出现的位置。

代码写不出,555555,大侠们能写么?
iamsangster 2004-01-30
  • 打赏
  • 举报
回复
好像这没有什么好的算法,就光那点显示,就需要很长时间,不论算法有多好,100!都可以把计算机搞死!
happyamang 2004-01-30
  • 打赏
  • 举报
回复
接分
hzqq 2004-01-29
  • 打赏
  • 举报
回复
好像用C写过
递归的典型例子
用两个数组,其中一个标记数组,标记另一个数组那些字已经用过了
RFASK射频问问 2004-01-29
  • 打赏
  • 举报
回复
你都没分用了给你点吧
atq9 2004-01-29
  • 打赏
  • 举报
回复
up
x_gn 2004-01-29
  • 打赏
  • 举报
回复
学习,up
nchen123 2004-01-28
  • 打赏
  • 举报
回复
过了年回来了, 看到这个帖子居然又多了这么多回复, 全排列的问题等有空再看看。

大笨狼, 你的日期转中文代码真短啊! 不过其中的 split 是否可以少用, 前面几个同样的可以合并为一次啊, 由于这个函数是牵涉到数组的操作, 多了可能会影响效率把, 一点愚见。
潜水的鱼 2004-01-27
  • 打赏
  • 举报
回复
从一楼,看到顶楼,晕了~,看来要继续努力
liuzxit 2004-01-26
  • 打赏
  • 举报
回复
呵呵,各位新年好,新年是不是我第一个上班啊,那个排列的题目怎么我运行你们的结果(=7时)比我的快啊,后来我也没细心去想,那个int函数名确实不好,本来是写ini的,谁知怎么搞的写成了int

另外笨狼的24点打不开啊
whtech 2004-01-26
  • 打赏
  • 举报
回复
偶是路过的。明天给你一个算法
MSNETFANS 2004-01-21
  • 打赏
  • 举报
回复
多谢,新年快乐
zhanlin911 2004-01-20
  • 打赏
  • 举报
回复
mark
csdn02 2004-01-20
  • 打赏
  • 举报
回复
再顶一下
csdn02 2004-01-20
  • 打赏
  • 举报
回复
顶一下
csdn02 2004-01-20
  • 打赏
  • 举报
回复
学习学习
超级大笨狼 2004-01-20
  • 打赏
  • 举报
回复
:-),9行代码,日期转化汉字最短版,好象不能再短了
<SCRIPT LANGUAGE=vbs>
Function D(x)
if int(split(x,"-")(2)/10)=0 then D=D & F(split(x,"-")(2)) else _
if split(x,"-")(2) mod 10 =0 then D=D & F(int(split(x,"-")(2)/10)) & "十" else _
D=D & F(int(split(x,"-")(2)/10)) & "十" & F(split(x,"-")(2) mod 10)
D=F(split(x,"-")(0)) & "年" & MonthName(split(x,"-")(1),True) & replace(D,"一十","十") & "日"
end Function
Function F(x)
for i=1 to len(x)
if mid(x,i,1)="0" then F=F & "零" else F=F & left(MonthName(mid(x,i,1),True),1)
next
end Function
msgbox D(date)
</SCRIPT>
加载更多回复(114)

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧