(定义1(26191元n) (cond((<=n3)n)(else(let(prev1(A266191号(-n 1))(第2版之前(A266191号(-n 2)))(let循环(k 1))(cond(和(not-lte(A266192号k) (-n 1))(isA003714?(*k prev1 prev2)))(k)(其他(环路(+1 k))))
(定义(isA003714?n)(=(*3n)(A003987bin(*2n)));;其中A003987bi执行位-XOR(参见A003987号).
;; 我们还考虑了在a为#f的情况下,a>b(即不小于b)。
;; (由于defineperm1-macro使用的有状态缓存系统):
(define(not-lte?a b)(cond((not(number?a))#t)(else(>a b)))
|