ElementQi 2019-12-04 00:27 采纳率: 0%
浏览 438

Lisp一些问题,请大佬帮忙解决

  • 编写一个LISP函数int-to-binary,将给定的非负整数转换为使用0和1表示二进制数的列表。

例如:

(int-to-binary 0) 返回 (0)

(int-to-binary 1) 返回(1)

(int-to-binary 2) 返回 (1 0)

(int-to-binary 13) 返回 (1 1 0 1)

提示: 你可以考虑使用LISP函数floor结合/、rem来解决这个问题。

  • 编写一个LISP函数my-member,如果第一个参数存在于第二个参数中,那么返回T,否则返回NIL。

以下是一些例子:

(my-member ’a ’()) 返回 NIL

(my-member ’a ’(c b a)) 返回 T

(my-member ’a ’(c b (a))) 返回 NIL
(因为a不是列表的元素,而是包含a的列表。)

这是第二个题目的延伸。编写一个新的LISP函数deep-member,如果给定的参数是给定列表的元素,或者在它的任何子列表中,则返回T,否则返回NIL。

以下是一些例子:

(deep-member ’a ’()) 返回 NIL

(deep-member ’a ’(c b a)) 返回 T

(deep-member ’a ’(c b (a))) 返回 T

(deep-member ’a ’(c b (1 (a)))) 返回 T

(deep-member ’a ’(c b (1 (d)))) 返回 NIL

  • 写回答

1条回答

  • threenewbee 2019-12-04 09:01
    关注
    评论

报告相同问题?

悬赏问题

  • ¥15 python天天向上类似问题,但没有清零
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 C#调用python代码(python带有库)
  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)