（XD::List:Flat）表的flat

marting · 发表于 2017-9-1 09:57:00

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

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

×

(defun XD::List:Flat (l)
  (cond
((null l)
   nil
)
((atom l)
   (list l)
)
((atom (car l))
   (cons (car l) (XD::List:Flat (cdr l)))
)
((append
   (XD::List:Flat (car l))
   (XD::List:Flat (cdr l))
   )
)
  )
)

sh_h · 发表于 2017-9-1 18:23:31

谢谢大师分享！！！

yoyoho · 发表于 2017-11-2 11:29:57

感谢分享程序！！！

land100 · 发表于 2017-11-8 19:42:10

签到天数: 1642 天
连续签到: 151 天
[LV.Master]伴坛终老I
13
主题
678
帖子
4625
积分
副教授级工程师
Rank: 8Rank: 8
积分4625
收听TA 发消息
已领礼包: 4876个
财富等级: 富可敌国
板凳
发表于 6 天前 | 只看该作者
感谢分享程序！！！

479274135 · 发表于 2019-1-20 16:45:11

谢谢大师分享！！！

yjch · 发表于 2019-1-21 17:14:43

谢谢，好好学习。不断进步

wzjck01 · 发表于 2021-1-14 01:12:05

谢谢大师分享！！！

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

[表] （XD::List:Flat）表的flat

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