|
（方案）
; 返回列表中除最后一个元素以外的所有元素
（定义rdc（λ（x））（如果（null？（cdr x））'（）（cons（car x）（rdc（cdr x））））
; 获取给定位的补码
（定义两个Complement（λ（x）（如果（eq？x#\0）“1”“0”））
; 获取字符串的补码
（定义补码OfCurrent（λ（x y z））（如果（eq？（字符串长度y）z）y（补码Of Current）（列表->字符串（cdr（字符串->列表x）））（字符串附加y（两个Complement（字符串引用x 0））z）））
; 将字符串的两个补码连接到当前字符串上，给出TM序列中的下一个元素
（定义concatenateComplement（lambda（x i））（如果（零？i）x（concatenoteComplex（字符串附加x（补码OfCurrent x“”（字符串长度x））（-i 1））））
; 生成长度为2^x的TM序列
（定义generateThue（λ（x）（串联补码“0”x））
; 如果比特是1，则得到2^i，其中i是该比特从右向左的索引
（定义F（λ（c i）（如果（eq？c#\1）（expt 2 i）0））
; 收集与1对应的所有索引的2^索引之和
（定义fn（lambda（x和i停止）（如果（eq？i停止）和（fn（list->string（rdc（string->list x）））（+和（F（string-ref x（-（string-length x）1）））i））（+i 1）停止））））
（定义f（λ（x）（fn（生成色调x）0 0（字符串长度（生成色调x））））
; 格式：（f x）
; 示例：（f 10）
| 