计划需要解决

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

可能

copy

(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)
)