登录
A130375号
加泰罗尼亚自同构的签名置换:应用*A074685美元在列表顶层的第一个nil之后,如果有,则保持结构完整。
4
0, 1, 2, 3, 5, 4, 6, 7, 8, 11, 12, 13, 10, 9, 14, 15, 16, 17, 18, 19, 20, 21, 22, 29, 28, 30, 31, 32, 33, 34, 35, 25, 26, 36, 27, 24, 23, 38, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 81, 82, 83, 80, 79, 85, 84
抵消
0,3
黄体脂酮素
(此自同构的破坏性方案实现,作用于S表达式,即列表结构:)
(定义*A130375号! (!在第一封邮件之后申请*A074685号!))
(define(!APPLY-AFTER-FIRST-NIL f!)(letrec((g!(lambda(s))cond((pair?s)(if(pair?(car s))(g!(cdrs))(f!(cdrs)))s)))g!)
关键词
非n
作者
安蒂·卡图恩2007年6月5日
状态
经核准的