Scheme 删除链表的最后一个元素

最新推荐文章于 2024-11-02 11:55:47 发布

原创最新推荐文章于 2024-11-02 11:55:47 发布 · 902 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#scheme #car #cdr #cons #list

算法同时被 2 个专栏收录

15 篇文章

订阅专栏

scheme

1 篇文章

订阅专栏

本文介绍Scheme语言中如何利用CAR、CDR和CONS等基本操作来实现链表的常见功能，特别是如何通过递归方法删除链表中的最后一个元素。

Scheme 里只有链表，但是通过链表可以实现各种复杂的操作。

常用的链表操作有：

CAR：返回链表的第一个元素
CDR：返回除第一个元素的所有元素组成的链表
CONS：连接两个链表

使用以上操作，实现删除链表的最后一个元素：

( DEFINE ( all_but_last lis )
	( COND 
		( (empty? lis) ( error 'all_but_last "empty list" ) ) ; 输入空链表报错
		( (empty? (CDR lis) ) empty ) ; 输入的链表只有一个元素，返回空
		( ELSE 
			( CONS 
				( CAR lis )
				( all_but_last (CDR lis) ) ; 保留链表的第一个元素，并递归调用
			)
		)
	)
)