表分组练习研讨

炫翔 · 发表于 2014-7-17 09:52:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由炫翔于 2014-7-17 09:58 编辑

(("1.1" 1) ("1.7" 1) ("1.6-2.1" 1) ("1.5-2.2" 1) ("1.4" 1) ("1.3" 1)
("1.2" 1) ("3.3" 1) ("3.4" 1) ("3.5" 1) ("3.6" 1) ("3.7" 1) ("2.3-3.1" 1)
("2.4-3.2" 1))

===>

((("1.1" 1)("1.2" 1)("1.3" 1)("1.4" 1)("1.5-2.2" 1)("1.6-2.1" 1)("1.7" 1))
(("1.6-2.1" 1)("1.5-2.2" 1)("2.3-3.1" 1)("2.4-3.2" 1))
(("2.3-3.1" 1)("2.4-3.2" 1)("3.3" 1)("3.4" 1)("3.5" 1)("3.6" 1)("3.7" 1))
)

总的说就是含1.开头顺序分为一组，
               含2.开头...........
         依次类推

注意一点:
类似这种形式的表
   ("1.5-2.2" 1)，可能会反过来，例如: ("2.2-1.5" 1)

csharp · 发表于 2014-7-17 10:20:52

(defun tt (lst / str l ll)
(foreach x lst
(setq str (car x))
(if (wcmatch str "*-*")
(progn
(setq l
(mapcar
'fix
(read (strcat "(" (vl-string-translate "-" " " str) ")"))
)
)
(setq ll (cons (cons (itoa (car l)) (list x)) ll)
ll (cons (cons (itoa (cadr l)) (list x)) ll)
)
)
(setq ll (cons (list (itoa (fix (distof (car x)))) x) ll))
)
)
(mapcar 'cdr (xd::list:groupbyindex ll 0))
)

炫翔 · 发表于 2014-7-17 11:31:38

csharp 发表于 2014-7-17 10:20

思路不错，分组正确，
顺序错误

下面是测试的结果:
((("3.3" 1) ("3.4" 1) ("3.5" 1) ("3.6" 1) ("3.7" 1) ("2.3-3.1" 1)
("2.4-3.2" 1)) (("1.6-2.1" 1) ("1.5-2.2" 1) ("2.3-3.1" 1) ("2.4-3.2" 1))
(("1.1" 1) ("1.7" 1) ("1.6-2.1" 1) ("1.5-2.2" 1) ("1.4" 1) ("1.3" 1) ("1.2" 1)))

csharp · 发表于 2014-7-17 11:33:08

在定一个排序规则而已

77077 · 发表于 2014-10-19 13:12:20

xuanxiang就是在难为人，分析了一下你给出来的数组和要排列出来的数组。求在详细解释下规律！！

账号		自动登录	找回密码
密码			立即注册

[研讨] 表分组练习研讨

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

[研讨] 表分组 练习研讨

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

[研讨] 表分组练习研讨