只需一步,快速开始
请问有人跟我说说lisp语言中的mappend和let是什么语意和作用吗?万分感谢了~~~~
使用道具 举报
个人定义的通用函数,
如同三楼
有append和mapcar,却没有mappend这个东西
有set,没有let这个东西...
(defun mappend ()
(alert "\n append和mapcar不是东西")
)
(defun let ()
(alert "\n我也要\"设\"(set,)一下:P")
无痕发表于2005-9-28 12:57:00(defun mappend () (alert \"\n append和mapcar不是东西\") ) (defun let ()...
???···虾米意思写个这个程序米看懂··?·
谢谢各位的关注,但是有这两个东西阿,呵呵
(defun generate (phrase)
"generate a random sentence or phrase"
(if (listp phrase)
(mappend #' generate phrase)
(let (( choices (rewrites phrase)))
(if (null choices)
(list phrase)
(generate (random-elt choices))))))
无痕,你很逗偶~~~
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-5-18 17:45 , Processed in 0.175291 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.