(XD::List:Measure)定距分割表

st788796 · 发表于 2014-12-28 21:48:22

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

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

×

(defun XD::List:Measure (lst n / nl nll)
(if (>= n (length lst))
lst
(progn
(while (> (length lst) n)
(repeat n
(setq nl (cons (car lst) nl)
lst (cdr lst)
)
)
(setq nll (cons (reverse nl) nll)
nl nil
)
)
(if lst
(reverse (cons lst nll))
(reverse nll)
)
)
)
)

_$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 2)
((1 2) (3 4) (5 6) (7 8) (9))
_$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 3)
((1 2 3) (4 5 6) (7 8 9))
_$ (XD::List:Measure '(1 2 3 4 5 6 7 8 9) 4)
((1 2 3 4) (5 6 7 8) (9))
_$

ynhh · 发表于 2014-12-29 10:05:27

{:soso_e179:}
经典的好程序

434939575 · 发表于 2014-12-29 11:41:35

感谢感谢！学习学习#

dingtiedt · 发表于 2015-8-4 15:22:36

各显神通啊

jetcan@21cn.com · 发表于 2015-11-28 18:32:30

经典的好程序:D

Loner~ · 发表于 2015-12-26 17:16:27

看不懂求教

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

[表] (XD::List:Measure)定距分割表

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