个人中心
文章发布
退出
作者热门文章
- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时，我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
27
4
<分区>
您好，我正在写一些东西，在第一个元素之后每隔三个元素抓取一次。但是由于“;对象(a b c d e f g)不适用”，我无法测试逻辑。代码如下，原子？检查它是否是一个列表，listful 被定义为一个空列表。
(DEFINE (threes var)
(if(atom? var)
((newline) (DISPLAY "Bad input") ))
(APPEND(listful (CAR var)))
(if(> 3 (length var))
(threes (cdddr(listful)))
(listful))
)
谁能给我一些提示？以下是我在 Scheme 环境中调用方法的方式。
>(threes (list1))>(threes '(A B C D E F))
27
4
0
我是一名优秀的程序员,十分优秀！