; 本福德定律
(定义(read-csv-记录 . 参数)
(定义(读-csv 熟食 港口)
(定义(添加字段 领域 领域)
(欺骗(列表->字符串(颠倒领域)) 领域))
(定义(开始 领域 领域)
(让((c（c） (读卡器港口)))
(康德((eof对象？c（c）) (颠倒领域))
((char=？#\返回 c（c）) (车厢转向 领域 领域))
((char=？#\换行符 c（c）) (线路馈电 领域 领域))
((字符=？#\" c（c）) (报价字段 领域 领域))
((char=？熟食 c（c）) (非字段 '() (添加字段 领域 领域)))
(其他的(未引用字段 (欺骗c（c） 领域) 领域)))))
(定义(非现场 领域 领域)
(让((c（c） (读卡器港口)))
(康德((eof对象？c（c）) (欺骗“” 领域))
((char=？#\返回 c（c）) (车厢转向 '() (添加字段 领域 领域)))
((char=？#\换行符 c（c）) (线路馈电 '() (添加字段 领域 领域)))
((char=？#\" c（c）) (报价字段 领域 领域))
((char=？熟食 c（c）) (非现场 '() (添加字段 领域 领域)))
(其他的(未引用字段 (欺骗c（c） 领域) 领域)))))
(定义(报价字段 领域 领域)
(让((c（c） (读卡器港口)))
(秒((eof对象？c（c）) (添加字段 领域 领域))
((char=？#\" c（c）) (可能是双引号 领域 领域))
(其他的(报价字段 (欺骗c（c） 领域) 领域)))))
(定义(五月-双引号 领域 领域)
(让((c（c） (读卡器港口)))
(康德((eof对象？c（c）) (添加字段 领域 领域))
((char=？#\返回 c（c）) (车厢转向 '() (添加字段 领域 领域)))
((char=？#\换行符 c（c）) (线路馈电 '() (添加字段 领域 领域)))
((char=？#\" c（c）) (报价字段 (欺骗#\" 领域) 领域))
((char=？熟食 c（c）) (非现场 '() (添加字段 领域 领域)))
(其他的(未引用字段 (欺骗c（c） 领域) 领域)))))
(定义(未引用字段 领域 领域)
(让((c（c） (读卡器港口)))
(秒((eof对象？c（c）) (添加字段 领域 领域))
((char=？#\返回 c（c）) (回车 '() (添加字段 领域 领域)))
((char=？#\换行符 c（c）) (线路馈电 '() (添加字段 领域 领域)))
((char=？熟食 c（c）) (非现场 '() (添加字段 领域 领域)))
(其他的(未引用字段 (欺骗c（c） 领域) 领域)))))
(定义(车厢转向 领域 领域)
(让((c（c） (peek字符港口)))
(康德((eof对象？c（c）) 领域)
((char=？#\换行符 c（c）) (读卡器港口) 领域)
(其他的领域))))
(定义(线路馈电 领域 领域)
(让((c（c） (聚醚醚酮港口)))
(康德((eof对象？c（c）) 领域)
((char=？#\返回 c（c）) (读卡器港口) 领域)
(其他的领域))))
(如果(eof对象？(聚醚醚酮港口)) (聚醚醚酮港口) (颠倒(开始 '() '()))))
(康德((无效的？参数) (读取csv #\， (电流输入端口)))
((和(无效的？(信用违约互换参数)) (烧焦？(汽车参数)))
(读-csv (汽车参数) (电流输入端口)))
((和(无效的？(信用违约互换参数)) (港口？(汽车参数)))
(读-csv #\， (汽车参数)))
((和(一对？(信用违约互换参数)) (无效的？(cddr公司参数)) (烧焦？(汽车参数)) (港口？(卡德尔参数)))
(读-csv (汽车参数) (卡德尔参数)))
(其他的(读-csv #\， (电流输入端口)))))
(定义(过滤器端口 读者 pred？)
(λ参数
(让环 ((x个 (应用读者 参数)))
(康德((eof对象？x个) x个)
((pred？ x个) x个)
(其他的(环 (应用读者 参数)))))))
(定义(地图还原端口 读者 制图员 减速器 书信电报？ . 港口)
(定义(树 c（c） k个 v（v） 我 第页) (矢量c（c） k个 v（v） 我 第页))
(定义空的 (树 '黑色 '无 '无 '无 '无))
(定义(空的？ t吨) (当量？t吨 空的))
(定义(颜色 t吨) (矢量参考t吨 0))
(定义(钥匙 t吨) (矢量参考t吨 1))
(定义(价值 t吨) (矢量参考t吨 2))
(定义(勒基德 t吨) (矢量参考t吨 三))
(定义(rkid公司 t吨) (矢量参考t吨 4))
(定义(红色？ c（c）) (当量？c（c） '红色))
(定义(黑色？ c（c）) (当量？c（c） '黑色))
(定义(平衡 c（c） k个 v（v） 我 第页)
(康德((和(黑色？ c（c）) (红色？ (颜色 我)) (红色？ (颜色 (勒基德 我))))
(树 '红色 (钥匙 我) (价值 我)
(树 '黑色 (钥匙 (勒基德 我)) (价值 (勒基德 我))
(lkid公司 (勒基德 我)) (rkid公司 (勒基德 我)))
(树 '黑色 k个 v（v） (rkid公司 我) 第页)))
((和(黑色？ c（c）) (红色？ (颜色 我)) (红色？ (颜色 (rkid公司 我))))
(树 '红色 (钥匙 (rkid公司 我)) (价值 (rkid公司 我))
(树 '黑色 (钥匙 我) (价值 我) (勒基德 我) (勒基德 (rkid公司 我)))
(树 '黑色 k个 v（v） (rkid公司 (rkid公司 我)) 第页)))
((和(黑色？ c（c）) (红色？ (颜色 第页)) (红色？ (颜色 (勒基德 第页))))
(树 '红色 (钥匙 (勒基德 第页)) (价值 (勒基德 第页))
(树 '黑色 k个 v（v） 我 (勒基德 (勒基德 第页)))
(树 '黑色 (钥匙 第页) (价值 第页) (rkid公司 (勒基德 第页)) (rkid公司 第页))))
((和(黑色？ c（c）) (红色？ (颜色 第页)) (红色？ (颜色 (rkid公司 第页))))
(树 '红色 (钥匙 第页) (价值 第页)
(树 '黑色 k个 v（v） 我 (勒基德 第页))
(树 '黑色 (钥匙 (rkid公司 第页)) (价值 (rkid公司 第页))
(勒基德 (rkid公司 第页)) (rkid公司 (rkid公司 第页)))))
(其他的(树 c（c） k个 v（v） 我 第页))))
(定义(插入 t吨 k个 v（v）)
(定义(英寸 t吨)
(让((总胆固醇 (颜色 t吨)) (tk公司 (钥匙 t吨)) (电视 (价值 t吨)) (热释光 (lkid公司 t吨)) (信托收据 (rkid公司 t吨)))
(康德((空的？ t吨) (树 '红色 k个 v（v） 空的 空的))
((书信电报？ k个 tk公司) (平衡 总胆固醇 tk公司 电视 (英寸 热释光) 信托收据))
((书信电报？ tk公司 k个) (平衡 总胆固醇 tk公司 电视 热释光 (英寸 信托收据)))
(其他的(树 总胆固醇 tk公司 (减速器 k个 电视 v（v）) 热释光 信托收据)))))
(出租*((z（z） (英寸 t吨)) (兹克 (钥匙 z（z）)) (zv公司 (价值 z（z）)) (zl（零升） (勒基德 z（z）)) (锆 (rkid公司 z（z）)))
(树 '黑色 兹克 zv公司 zl（零升） 锆)))
(定义(登记 t吨 基础)
(秒((空的？ t吨) 基础)
((和(空的？ (勒基德 t吨)) (空的？ (rkid公司 t吨)))
(欺骗(欺骗(钥匙 t吨) (价值 t吨)) 基础))
(其他的(登记 (勒基德 t吨)
(欺骗(欺骗(钥匙 t吨) (价值 t吨))
(登记 (rkid公司 t吨) 基础))))))
(让((第页 (如果(无效的？港口) (电流输入端口) (汽车港口))))
(让环 ((项目 (读者 第页)) (t吨 空的))
(如果(eof对象？项目)
(应征入伍 t吨 '())
(带值调用
(λ() (制图员 项目))
(λ(k个 v（v）) (环 (读者 第页) (插入 t吨 k个 v（v）))))))))
(定义(第一位数 n个 . 基础)
(出租*((b条 (如果(无效的？基础) 10 (汽车基础)))
(b2型 (*b条 b条)))
(让环 ((n个 n个) (我 b条) (k个 b2型))
(康德((<n个 b条) n个)
((<n个 k个)
(环 (商n个 我) b条 b2型))
(其他的(环 n个 k个 (*我 我)))))))
(定义(保留？ X轴) (字符串->数字(列表-refX轴 三)))
(出租*((fds公司 (带输入薄膜“mn-lakes.csv”
(λ()
(地图还原端口
(过滤器端口 读取csv记录 保留？)
(λ(x个)
(值
(第一位数 (地板(字符串->数字(列表-refx个 三))))
1))
(λ(k个 第1版 第2版) (+第1版 第2版))
<))))
(fds计数 (应用+ (地图信用违约互换 fds公司))))
(每个人(λ(x个)
(打印 “~a~f~%”
(汽车x个)
(/(信用违约互换x个) fds计数 0.01)))
fds公司))
