社区 › Auto Lisp › 计划需要解决

Hasan Faruk 发表于 2022-7-6 06:40:10

计划需要解决

你好
 
我是lisp编程的初学者。我要解决这个程序面临很多困难。有没有人能解决这个问题，让我开心。
 
 
LISP：“一个程序，将你的出生日期和月份作为输入，并将返回你的黄道十二宫。”

pBe 发表于 2022-7-6 06:46:33

听起来很有趣。在这里提供“黄道带”信息，我们将为您编写代码。

Hasan Faruk 发表于 2022-7-6 06:48:09

黄道带信息
 
白羊座-3月21日-4月20日
金牛座-4月21日-5月21日
双子座-5月22日至6月21日
癌症-6月22日-7月22日
狮子座-7月23日-8月22日
处女座-8月23日-9月23日
天秤座-9月24日-10月23日
天蝎座-10月24日至11月22日
射手座-11月23日至12月21日
摩羯座-12月22日-1月20日
水瓶座-1月21日至2月19日
双鱼座-2月20日-3月20日
 

MSasu 发表于 2022-7-6 06:51:34

哈桑，这是学校作业吗？

pBe 发表于 2022-7-6 06:55:59

 
既然你提到了，我确实为哈桑写了一段代码。我会推迟发布代码。

Hasan Faruk 发表于 2022-7-6 06:58:33

嘿，不。。。
 
别听他的。这不是学校的作业。你让我发疯了：
请分享你的代码。。。。我会很高兴的

Lee Mac 发表于 2022-7-6 07:02:03

 
可能
(defun c:zodiac ( / day mon )
   (if
       (and
         (setq day (getint "\nBirth Day: "))
         (setq mon (getint "\nBirth Month: "))
       )
       (princ
         (vl-list->string
               (mapcar (function (lambda ( x ) (boole 6 90 x)))
                   (vl-string->list "Px#5/(z 5>3;9z)3=4x")
               )
         )
       )
   )
   (princ)
)

MSasu 发表于 2022-7-6 07:03:58

我的评论无意冒犯你。如果你有这种感觉，我很抱歉。
 
但是请记住，您是说正在学习AutoLISP的人，因此我相信，如果您将发布到目前为止设计的内容，并要求我们提供继续/改进的建议，而不是寻找已经编写好的解决方案，那么从长远来看，这将受益匪浅。

pBe 发表于 2022-7-6 07:07:18

既然是LM开始的，不妨。。。。
 
Following consensus .....
 
HTH公司

Lee Mac 发表于 2022-7-6 07:10:42

 
哈哈，我什么都没开始。。。

查看完整版本: 计划需要解决