|
发表于 2013-1-20 01:42:49
|
显示全部楼层
江苏省宿迁市
绝对的另类,绝对的简短,短的让我无法注释!
同样的语言,同样的结果,为什么代码的差距就那么大呢?
[e]
.版本 2
.子程序 __启动窗口_创建完毕
输出调试文本 (子程序1 ({ 2, 3, 1, 7 }))
.子程序 子程序1, 文本型, , 一位数的数组,返回不大于它每个成员的值的数字组成的文本。
.参数 数组, 字节集, , 一位数的数组
.局部变量 指针, 整数型, , , 数组的指针
.局部变量 数字集, 文本型, , , 文本常量
.局部变量 文本, 文本型, , , 用于存储组合后的文本
.局部变量 文本数组a, 文本型, , "0", 用于组合的a文本数组
.局部变量 文本数组b, 文本型, , "0", 用于组合的b文本数组
.局部变量 计次a, 整数型, , , 用于文本数组a的计次
.局部变量 计次b, 整数型, , , 用于文本数组b的计次
数字集 = “1 2 3 4 5 6 7 8 9” ' 我使用空格作为分隔符
指针 = 1
文本 = 取文本左边 (数字集, 数组 [指针] × 2)
.判断循环首 (取字节集长度 (数组) > 指针)
指针 = 指针 + 1
文本数组a = 分割文本 (文本, “ ”, )
文本数组b = 分割文本 (数字集, “ ”, 数组 [指针])
文本 = “”
.计次循环首 (取数组成员数 (文本数组a), 计次a)
.计次循环首 (数组 [指针], 计次b)
文本 = 文本 + 文本数组a [计次a] + 文本数组b [计次b] + “ ”
.计次循环尾 ()
.计次循环尾 ()
.判断循环尾 ()
返回 (文本)
[/e] |
|