如何在Scheme中获得(整数)的最低有效位?这是一件相当容易的事情吗?
谢谢,
如果您的Scheme实现支持SRFI 60,您可以简单地使用:
(logand n 1)
(bitwise-and
是一些Scheme实现更喜欢的同义词,所以如果没有logand
,也要检查bitwise-and
。)
否则,如果你愿意假设你使用的是二元互补系统(所有主流平台都是),你也可以使用odd?
或even?
:
(if (odd? n) 1 0)