1 Star 0 Fork 0

zhangshenhua/five-lisp-challenge

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
该仓库未声明开源许可证文件(LICENSE),使用请关注具体项目描述及其代码上游依赖。
克隆/下载
五道习题.rkt 33.44 KB
一键复制 编辑 原始数据 按行查看 历史
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549
#reader(lib"read.ss""wxme")WXME0108 ##
#|
This file uses the GRacket editor format.
Open this file in DrRacket version 6.0.1 or later to read it.
Most likely, it was created by saving a program in DrRacket,
and it probably contains a program with non-text elements
(such as images or comment boxes).
http://racket-lang.org/
|#
30 7 #"wxtext\0"
3 1 6 #"wxtab\0"
1 1 8 #"wximage\0"
2 0 8 #"wxmedia\0"
4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0"
1 0 16 #"drscheme:number\0"
3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0"
1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0"
1 0 93
(
#"((lib \"collapsed-snipclass.ss\" \"framework\") (lib \"collapsed-sni"
#"pclass-wxme.ss\" \"framework\"))\0"
) 0 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0"
0 0 19 #"drscheme:sexp-snip\0"
0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0"
1 0 68
(
#"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mr"
#"lib\"))\0"
) 1 0 29 #"drscheme:bindings-snipclass%\0"
1 0 88
(
#"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.r"
#"kt\" \"drracket\" \"private\"))\0"
) 0 0 34 #"(lib \"bullet-snip.rkt\" \"browser\")\0"
0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0"
1 0 22 #"drscheme:lambda-snip%\0"
1 0 26 #"drracket:spacer-snipclass\0"
0 0 57
#"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0"
1 0 26 #"drscheme:pict-value-snip%\0"
0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0"
1 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0"
2 0 55 #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private\")\0"
1 0 18 #"drscheme:xml-snip\0"
1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0"
1 0 21 #"drscheme:scheme-snip\0"
2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0"
1 0 10 #"text-box%\0"
1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0"
1 0 1 6 #"wxloc\0"
0 0 63 0 1 #"\0"
0 75 1 #"\0"
0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9
#"Standard\0"
0 75 12 #"Courier New\0"
0 20 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24
#"framework:default-color\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 2
1 #"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15
#"text:ports out\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 255 0 0 0 0 0 -1
-1 2 15 #"text:ports err\0"
0 -1 1 #"\0"
1 0 -1 92 93 -1 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17
#"text:ports value\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
-1 2 27 #"Matching Parenthesis Style\0"
0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1
-1 2 1 #"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37
#"framework:syntax-color:scheme:symbol\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38
#"framework:syntax-color:scheme:keyword\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2
38 #"framework:syntax-color:scheme:comment\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37
#"framework:syntax-color:scheme:string\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 35
#"framework:syntax-color:scheme:text\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39
#"framework:syntax-color:scheme:constant\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 49
#"framework:syntax-color:scheme:hash-colon-keyword\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42
#"framework:syntax-color:scheme:parenthesis\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
#"framework:syntax-color:scheme:error\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36
#"framework:syntax-color:scheme:other\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 16
#"Misspelled Text\0"
0 -1 1 #"\0"
1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2
38 #"drracket:check-syntax:lexically-bound\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28
#"drracket:check-syntax:set!d\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 37
#"drracket:check-syntax:unused-require\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36
#"drracket:check-syntax:free-variable\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31
#"drracket:check-syntax:imported\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 47
#"drracket:check-syntax:my-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 50
#"drracket:check-syntax:their-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 48
#"drracket:check-syntax:unk-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
49 #"drracket:check-syntax:both-obligation-style-pref\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2
26 #"plt:htdp:test-coverage-on\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1
#"\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 2 27
#"plt:htdp:test-coverage-off\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
#"\0"
0 70 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 4 #"XML\0"
0 70 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 37 #"plt:module-language:test-coverage-on\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 38
#"plt:module-language:test-coverage-off\0"
0 -1 1 #"\0"
1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1
#"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
-1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1
-1 4 1 #"\0"
0 71 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1
-1 0 1 #"\0"
0 75 12 #"Courier New\0"
0.0 20 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 255 -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 150 0 150 0
0 0 -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 92 93 -1 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0
0 -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 175 0 0
0 -1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0
-1 -1 2 1 #"\0"
0 -1 1 #"\0"
1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 200 0 0 0 0
0 -1 -1 4 1 #"\0"
0 -1 1 #"\0"
1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255
255 0 -1 -1 0 946 0 28 3 12 #"#lang racket"
0 0 24 29 1 #"\n"
0 7 217 4 0 0 0 35 0 14 3 41
(
#"1.\350\257\267\345\206\231\344\270"
#"\200\344\270\252\346\212\212\346\240\221\350\275\254\344\270"
#"\272\345\210\227\350\241\250\347\232\204\345\207\275\346\225\260"
) 0 0 24 29 1 #"\n"
0 0 14 3 6 #"\344\276\213\357\274\232"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 2 #" ("
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 2 #" ("
0 0 21 3 1 #"4"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 2 #" ("
0 0 21 3 2 #"69"
0 0 24 3 3 #")) "
0 0 21 3 1 #"8"
0 0 24 3 3 #")))"
0 0 14 3 2 #"=>"
0 0 24 3 2 #" ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"4"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #" "
0 0 21 3 2 #"69"
0 0 24 3 1 #" "
0 0 21 3 1 #"8"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 14 3 4 #"tree"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 14 3 2 #"if"
0 0 24 3 2 #" ("
0 0 14 3 5 #"null?"
0 0 24 3 1 #" "
0 0 14 3 4 #"tree"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 6 #" "
0 0 21 3 1 #"'"
0 0 24 3 2 #"()"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 15 3 3 #"let"
0 0 24 3 3 #" (("
0 0 14 3 5 #"first"
0 0 24 3 2 #" ("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 4 #"tree"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ("
0 0 14 3 4 #"rest"
0 0 24 3 2 #" ("
0 0 14 3 3 #"cdr"
0 0 24 3 1 #" "
0 0 14 3 4 #"tree"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 0 24 3 9 #" ("
0 0 14 3 2 #"if"
0 0 24 3 2 #" ("
0 0 14 3 3 #"not"
0 0 24 3 2 #" ("
0 0 14 3 5 #"list?"
0 0 24 3 1 #" "
0 0 14 3 5 #"first"
0 0 24 3 3 #")) "
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ("
0 0 14 3 4 #"cons"
0 0 24 3 1 #" "
0 0 14 3 5 #"first"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" ("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 14 3 4 #"rest"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ("
0 0 14 3 6 #"append"
0 0 24 3 2 #" ("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 14 3 5 #"first"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 21 #" ("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 14 3 4 #"rest"
0 0 24 3 6 #"))))))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 2 #" ("
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 2 #" ("
0 0 21 3 1 #"4"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 2 #" ("
0 0 21 3 2 #"69"
0 0 24 3 3 #")) "
0 0 21 3 1 #"8"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 7 421 4 0 0 0 69 0 14 3 74
(
#"2.\350\257\267\345\206\231\344\270\200\344"
#"\270\252\346\212\212\344\270\200\344\270\252\351"
#"\233\206\345\220\210\350\275\254\344\270\272\345"
#"\214\205\345\220\253\345\205\266\346"
#"\211\200\346\234\211\345\255\220\351\233\206\347\232\204"
#"\351\233\206\345\220\210\347\232\204\345\207\275\346\225\260"
) 0 0 24 29 1 #"\n"
0 0 14 3 6 #"\344\276\213\357\274\232"
0 0 24 3 2 #" ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #")"
0 0 14 3 2 #"=>"
0 0 24 3 2 #"(("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 3 #") ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 3 #") ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 3 #") ("
0 0 21 3 1 #"1"
0 0 24 3 3 #") ("
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 3 #") ("
0 0 21 3 1 #"2"
0 0 24 3 3 #") ("
0 0 21 3 1 #"3"
0 0 24 3 5 #") ())"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 14 3 1 #"P"
0 0 24 3 5 #"({}) "
0 0 14 3 1 #"="
0 0 24 3 5 #" {{}}"
0 0 24 29 1 #"\n"
0 0 14 3 1 #"P"
0 0 24 3 1 #"("
0 0 14 3 1 #"X"
0 0 24 3 2 #") "
0 0 14 3 1 #"="
0 0 24 3 3 #" {{"
0 0 14 3 2 #"x1"
0 0 24 3 2 #"} "
0 0 14 3 5 #"union"
0 0 24 3 1 #" "
0 0 14 3 2 #"y:"
0 0 24 3 1 #" "
0 0 14 3 1 #"y"
0 0 24 3 1 #" "
0 0 14 3 2 #"in"
0 0 24 3 1 #" "
0 0 14 3 1 #"P"
0 0 24 3 1 #"("
0 0 14 3 4 #"cdrX"
0 0 24 3 3 #")} "
0 0 14 3 5 #"union"
0 0 24 3 1 #" "
0 0 14 3 1 #"P"
0 0 24 3 1 #"("
0 0 14 3 4 #"cdrX"
0 0 24 3 1 #")"
0 0 0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 1 #"P"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 14 3 2 #"if"
0 0 24 3 1 #"("
0 0 14 3 5 #"null?"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" "
0 0 21 3 1 #"'"
0 0 24 3 4 #"(())"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ["
0 0 15 3 3 #"let"
0 0 24 3 3 #" (["
0 0 14 3 5 #"first"
0 0 24 3 2 #" ("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ["
0 0 14 3 4 #"rest"
0 0 24 3 2 #" ("
0 0 14 3 1 #"P"
0 0 24 3 2 #" ("
0 0 14 3 3 #"cdr"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 4 #"))])"
0 0 24 29 1 #"\n"
0 0 24 3 9 #" ("
0 0 14 3 6 #"append"
0 0 24 3 2 #" "
0 0 24 29 1 #"\n"
0 0 24 3 10 #" {"
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 1 #"x"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 17 #" ["
0 0 14 3 4 #"cons"
0 0 24 3 1 #" "
0 0 14 3 5 #"first"
0 0 24 3 1 #" "
0 0 14 3 1 #"x"
0 0 24 3 2 #"])"
0 0 24 29 1 #"\n"
0 0 24 3 14 #" "
0 0 14 3 4 #"rest"
0 0 24 3 2 #"} "
0 0 14 3 4 #"rest"
0 0 24 3 4 #")]))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 14 3 1 #"P"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 7 583 4 0 0 0 96 0 14 3 74
(
#"3.\350\257\267\345\206\231\344\270\200\344"
#"\270\252\346\212\212\344\270\200\344\270\252\351"
#"\233\206\345\220\210\350\275\254\344\270\272\345"
#"\214\205\345\220\253\345\205\266\346"
#"\211\200\346\234\211\346\216\222\345\210\227\347\232\204"
#"\351\233\206\345\220\210\347\232\204\345\207\275\346\225\260"
) 0 0 24 29 1 #"\n"
0 0 14 3 6 #"\344\276\213\357\274\232"
0 0 24 3 2 #" ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #")"
0 0 14 3 2 #"=>"
0 0 24 3 3 #" (("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 3 #") ("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 3 #") ("
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 3 #") ("
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 3 #") ("
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 3 #") ("
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 14 3 1 #"f"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 2 #") "
0 0 14 3 1 #"="
0 0 24 3 3 #" [("
0 0 14 3 2 #"x1"
0 0 24 3 2 #" ("
0 0 14 3 1 #"f"
0 0 24 3 2 #" ("
0 0 14 3 4 #"drop"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 0 24 3 10 #" ("
0 0 14 3 2 #"x2"
0 0 24 3 2 #" ("
0 0 14 3 1 #"f"
0 0 24 3 2 #" ("
0 0 14 3 4 #"drop"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 0 24 3 10 #" "
0 0 14 3 3 #"..."
0 0 24 29 1 #"\n"
0 0 24 3 10 #" ("
0 0 14 3 2 #"xn"
0 0 24 3 2 #" ("
0 0 14 3 1 #"f"
0 0 24 3 2 #" ("
0 0 14 3 4 #"drop"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #" "
0 0 14 3 1 #"n"
0 0 24 3 4 #")))]"
0 0 24 29 1 #"\n"
0 0 24 3 6 #" "
0 0 0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 15 #"my-permutations"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 14 3 2 #"if"
0 0 24 3 1 #"("
0 0 14 3 5 #"null?"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" "
0 0 21 3 1 #"'"
0 0 24 3 4 #"(())"
0 0 24 29 1 #"\n"
0 0 24 3 6 #" ("
0 0 14 3 5 #"apply"
0 0 24 3 1 #" "
0 0 14 3 6 #"append"
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ("
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 2 #"xi"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 20 #" ("
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 5 #"resti"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 27 #" ("
0 0 14 3 4 #"cons"
0 0 24 3 1 #" "
0 0 14 3 2 #"xi"
0 0 24 3 1 #" "
0 0 14 3 5 #"resti"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 25 #" {"
0 0 14 3 15 #"my-permutations"
0 0 24 3 2 #" ("
0 0 14 3 6 #"remove"
0 0 24 3 1 #" "
0 0 14 3 2 #"xi"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 4 #")}))"
0 0 24 29 1 #"\n"
0 0 24 3 17 #" "
0 0 14 3 1 #"X"
0 0 24 3 4 #"))))"
0 0 24 29 1 #"\n"
0 0 24 3 2 #" ("
0 0 14 3 15 #"my-permutations"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"4"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 7 217 4 0 0 0 35 0 14 3 74
(
#"4.\350\257\267\345\206\231\344\270\200\344"
#"\270\252\346\212\212\344\270\200\344\270\252\346"
#"\234\211\345\272\217\345\210\227\350\241\250\350"
#"\275\254\346\215\242\344\270\272\344"
#"\270\200\346\243\265\344\272\214\345\217\211\345\271\263"
#"\350\241\241\346\240\221\347\232\204\345\207\275\346\225\260"
) 0 0 24 29 1 #"\n"
0 0 14 3 6 #"\344\276\213\357\274\232"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"4"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #" "
0 0 21 3 1 #"7"
0 0 24 3 1 #" "
0 0 21 3 1 #"8"
0 0 24 3 1 #")"
0 0 14 3 2 #"=>"
0 0 24 3 2 #" ("
0 0 21 3 1 #"4"
0 0 24 3 2 #" ("
0 0 21 3 1 #"2"
0 0 24 3 2 #" ("
0 0 21 3 1 #"1"
0 0 24 3 9 #" () ()) ("
0 0 21 3 1 #"3"
0 0 24 3 10 #" () ())) ("
0 0 21 3 1 #"7"
0 0 24 3 2 #" ("
0 0 21 3 1 #"5"
0 0 24 3 9 #" () ()) ("
0 0 21 3 1 #"8"
0 0 24 3 9 #" () ())))"
0 0 24 29 1 #"\n"
0 0 0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 15 3 6 #"define"
0 0 24 3 1 #" "
0 0 14 3 1 #"f"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 2 #"ls"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" ("
0 0 14 3 2 #"if"
0 0 24 3 2 #" ("
0 0 14 3 5 #"null?"
0 0 24 3 1 #" "
0 0 14 3 2 #"ls"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 8 #" "
0 0 21 3 1 #"'"
0 0 24 3 2 #"()"
0 0 24 29 1 #"\n"
0 0 24 3 9 #" ("
0 0 15 3 4 #"let*"
0 0 24 3 3 #" (["
0 0 14 3 3 #"len"
0 0 24 3 2 #" ("
0 0 14 3 6 #"length"
0 0 24 3 1 #" "
0 0 14 3 2 #"ls"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 9 #"mid-point"
0 0 24 3 2 #" ("
0 0 14 3 8 #"quotient"
0 0 24 3 1 #" "
0 0 14 3 3 #"len"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 9 #"left-list"
0 0 24 3 2 #" ("
0 0 14 3 4 #"take"
0 0 24 3 1 #" "
0 0 14 3 2 #"ls"
0 0 24 3 1 #" "
0 0 14 3 9 #"mid-point"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 1 #"r"
0 0 14 3 1 #"e"
0 0 14 3 9 #"main-list"
0 0 24 3 2 #" ("
0 0 14 3 4 #"drop"
0 0 24 3 1 #" "
0 0 14 3 2 #"ls"
0 0 24 3 1 #" "
0 0 14 3 9 #"mid-point"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 8 #"mid-node"
0 0 24 3 2 #" ("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 11 #"remain-list"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 10 #"right-list"
0 0 24 3 2 #" ("
0 0 14 3 3 #"cdr"
0 0 24 3 1 #" "
0 0 14 3 11 #"remain-list"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 9 #"left-tree"
0 0 24 3 2 #" ("
0 0 14 3 1 #"f"
0 0 24 3 1 #" "
0 0 14 3 9 #"left-list"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" ["
0 0 14 3 10 #"right-tree"
0 0 24 3 2 #" ("
0 0 14 3 1 #"f"
0 0 24 3 1 #" "
0 0 14 3 10 #"right-list"
0 0 24 3 3 #")])"
0 0 24 29 1 #"\n"
0 0 24 3 11 #" ("
0 0 14 3 2 #"if"
0 0 24 3 2 #" ("
0 0 14 3 1 #"="
0 0 24 3 1 #" "
0 0 14 3 3 #"len"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 14 #" "
0 0 21 3 1 #"`"
0 0 24 3 1 #"("
0 0 28 3 2 #",@"
0 0 14 3 2 #"ls"
0 0 24 3 7 #" () ())"
0 0 24 29 1 #"\n"
0 0 24 3 15 #" ("
0 0 14 3 4 #"list"
0 0 24 3 1 #" "
0 0 14 3 8 #"mid-node"
0 0 24 3 1 #" "
0 0 24 29 1 #"\n"
0 0 24 3 20 #" "
0 0 14 3 9 #"left-tree"
0 0 24 29 1 #"\n"
0 0 24 3 20 #" "
0 0 14 3 10 #"right-tree"
0 0 24 3 6 #"))))))"
0 0 24 29 1 #"\n"
0 0 24 3 6 #" "
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 14 3 1 #"f"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"2"
0 0 24 3 1 #" "
0 0 21 3 1 #"3"
0 0 24 3 1 #" "
0 0 21 3 1 #"4"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #" "
0 0 21 3 1 #"7"
0 0 24 3 1 #" "
0 0 21 3 1 #"8"
0 0 24 3 1 #" "
0 0 21 3 2 #"11"
0 0 24 3 1 #" "
0 0 21 3 2 #"13"
0 0 24 3 1 #" "
0 0 21 3 2 #"17"
0 0 24 3 1 #" "
0 0 21 3 2 #"19"
0 0 24 3 1 #" "
0 0 21 3 2 #"22"
0 0 24 3 1 #" "
0 0 21 3 2 #"25"
0 0 24 3 1 #" "
0 0 21 3 2 #"28"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 7 619 4 0 0 0 102 0 14 3 59
(
#"5.\350\257\267\345\206\231\344\270\200\344"
#"\270\252\345\217\257\347\256\227\345\207\272"
#"4\345\274\240\347\211\214\357\274\23524\347\232\204\346\211\200"
#"\346\234\211\350\247\243\346\263\225"
#"\347\232\204\345\207\275\346\225\260"
) 0 0 24 29 1 #"\n"
0 0 24 3 1 #"{"
0 0 19 3 36 #"\"((num1 op1 num2) op2 num3) op3 num4"
0 0 19 29 1 #"\n"
0 0 19 3 1 #"\""
0 0 14 3 1 #":"
0 0 24 3 1 #" "
0 0 24 29 1 #"\n"
0 0 24 3 7 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 3 #"op1"
0 0 24 3 1 #" "
0 0 14 3 3 #"op2"
0 0 24 3 1 #" "
0 0 14 3 3 #"op3"
0 0 24 3 2 #") "
0 0 14 3 2 #"in"
0 0 24 3 2 #" ("
0 0 14 3 7 #"Decare*"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 2 #") "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 2 #") "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 2 #"))"
0 0 28 3 1 #","
0 0 24 29 1 #"\n"
0 0 24 3 7 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 4 #"num1"
0 0 24 3 1 #" "
0 0 14 3 4 #"num2"
0 0 24 3 1 #" "
0 0 14 3 4 #"num3"
0 0 24 3 1 #" "
0 0 14 3 4 #"num4"
0 0 24 3 2 #") "
0 0 14 3 2 #"in"
0 0 24 3 2 #" ("
0 0 14 3 12 #"permutations"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 1 #"("
0 0 14 3 4 #"num1"
0 0 24 3 1 #" "
0 0 14 3 4 #"num2"
0 0 24 3 1 #" "
0 0 14 3 4 #"num3"
0 0 24 3 1 #" "
0 0 14 3 4 #"num4"
0 0 24 3 2 #"))"
0 0 28 3 1 #","
0 0 24 29 1 #"\n"
0 0 24 3 8 #" ("
0 0 14 3 1 #"="
0 0 24 3 2 #" ("
0 0 14 3 3 #"op3"
0 0 24 3 2 #" ("
0 0 14 3 3 #"op2"
0 0 24 3 2 #" ("
0 0 14 3 3 #"op1"
0 0 24 3 1 #" "
0 0 14 3 4 #"num1"
0 0 24 3 1 #" "
0 0 14 3 4 #"num2"
0 0 24 3 2 #") "
0 0 14 3 4 #"num3"
0 0 24 3 2 #") "
0 0 14 3 4 #"num4"
0 0 24 3 2 #") "
0 0 21 3 2 #"24"
0 0 24 3 2 #")}"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 6 #"calc24"
0 0 24 3 1 #" "
0 0 14 3 1 #"a"
0 0 24 3 1 #" "
0 0 14 3 1 #"b"
0 0 24 3 1 #" "
0 0 14 3 1 #"c"
0 0 24 3 1 #" "
0 0 14 3 1 #"d"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 7 #"Decare*"
0 0 24 3 1 #" "
0 0 28 3 1 #"."
0 0 24 3 1 #" "
0 0 14 3 4 #"sets"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" ("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 6 #"Decare"
0 0 24 3 1 #" "
0 0 14 3 1 #"X"
0 0 24 3 1 #" "
0 0 14 3 1 #"Y"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 14 3 5 #"apply"
0 0 24 3 1 #" "
0 0 14 3 6 #"append"
0 0 24 29 1 #"\n"
0 0 24 3 14 #" ("
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 1 #"x"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 21 #" ("
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 1 #"y"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 28 #" ("
0 0 14 3 4 #"list"
0 0 24 3 1 #" "
0 0 14 3 1 #"x"
0 0 24 3 1 #" "
0 0 14 3 1 #"y"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 25 #" "
0 0 14 3 1 #"Y"
0 0 24 3 3 #")) "
0 0 24 29 1 #"\n"
0 0 24 3 18 #" "
0 0 14 3 1 #"X"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" ("
0 0 14 3 3 #"map"
0 0 24 3 2 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 1 #"x"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 12 #" ("
0 0 14 3 10 #"tree->list"
0 0 24 3 1 #" "
0 0 14 3 1 #"x"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 10 #" ("
0 0 14 3 5 #"foldl"
0 0 24 3 1 #" "
0 0 14 3 6 #"Decare"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 24 3 5 #"(()) "
0 0 14 3 4 #"sets"
0 0 24 3 3 #")))"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 13 #"all-orders-of"
0 0 24 3 1 #" "
0 0 14 3 1 #"a"
0 0 24 3 1 #" "
0 0 14 3 1 #"b"
0 0 24 3 1 #" "
0 0 14 3 1 #"c"
0 0 24 3 1 #" "
0 0 14 3 1 #"d"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 4 #" "
0 0 21 3 1 #"`"
0 0 24 3 4 #"[((("
0 0 28 3 1 #","
0 0 14 3 1 #"a"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"b"
0 0 24 3 2 #") "
0 0 28 3 1 #","
0 0 14 3 1 #"c"
0 0 24 3 2 #") "
0 0 28 3 1 #","
0 0 14 3 1 #"d"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 28 3 1 #","
0 0 14 3 1 #"a"
0 0 24 3 3 #" (("
0 0 28 3 1 #","
0 0 14 3 1 #"b"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"c"
0 0 24 3 2 #") "
0 0 28 3 1 #","
0 0 14 3 1 #"d"
0 0 24 3 3 #")) "
0 0 24 29 1 #"\n"
0 0 24 3 8 #" (("
0 0 28 3 1 #","
0 0 14 3 1 #"a"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"b"
0 0 24 3 3 #") ("
0 0 28 3 1 #","
0 0 14 3 1 #"c"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"d"
0 0 24 3 3 #")) "
0 0 24 29 1 #"\n"
0 0 24 3 8 #" (("
0 0 28 3 1 #","
0 0 14 3 1 #"a"
0 0 24 3 2 #" ("
0 0 28 3 1 #","
0 0 14 3 1 #"b"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"c"
0 0 24 3 3 #")) "
0 0 28 3 1 #","
0 0 14 3 1 #"d"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 28 3 1 #","
0 0 14 3 1 #"a"
0 0 24 3 2 #" ("
0 0 28 3 1 #","
0 0 14 3 1 #"b"
0 0 24 3 2 #" ("
0 0 28 3 1 #","
0 0 14 3 1 #"c"
0 0 24 3 1 #" "
0 0 28 3 1 #","
0 0 14 3 1 #"d"
0 0 24 3 5 #")))])"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"define"
0 0 24 3 1 #" "
0 0 14 3 14 #"make-calc-tree"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 9 #"a-op-list"
0 0 24 3 1 #" "
0 0 14 3 6 #"a-tree"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 15 3 4 #"cond"
0 0 24 29 1 #"\n"
0 0 24 3 10 #" [("
0 0 14 3 3 #"not"
0 0 24 3 2 #" ("
0 0 14 3 5 #"list?"
0 0 24 3 1 #" "
0 0 14 3 6 #"a-tree"
0 0 24 3 3 #")) "
0 0 14 3 6 #"a-tree"
0 0 24 3 1 #"]"
0 0 24 29 1 #"\n"
0 0 24 3 9 #" ["
0 0 14 3 4 #"else"
0 0 24 3 1 #" "
0 0 21 3 1 #"`"
0 0 24 3 1 #"("
0 0 28 3 1 #","
0 0 24 3 1 #"("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 9 #"a-op-list"
0 0 24 3 2 #") "
0 0 28 3 1 #","
0 0 24 3 1 #"("
0 0 14 3 14 #"make-calc-tree"
0 0 24 3 2 #" ("
0 0 14 3 3 #"cdr"
0 0 24 3 1 #" "
0 0 14 3 9 #"a-op-list"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 51 #" ("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 6 #"a-tree"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 33 #" "
0 0 28 3 1 #","
0 0 24 3 1 #"("
0 0 14 3 14 #"make-calc-tree"
0 0 24 3 2 #" ("
0 0 14 3 3 #"cdr"
0 0 24 3 1 #" "
0 0 14 3 9 #"a-op-list"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 51 #" ("
0 0 14 3 4 #"cadr"
0 0 24 3 1 #" "
0 0 14 3 6 #"a-tree"
0 0 24 3 7 #")))])))"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"define"
0 0 24 3 1 #" "
0 0 14 3 4 #"calc"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 14 3 7 #"call/cc"
0 0 24 29 1 #"\n"
0 0 24 3 8 #" ("
0 0 15 3 6 #"lambda"
0 0 24 3 2 #" ("
0 0 14 3 6 #"return"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 10 #" ("
0 0 15 3 4 #"cond"
0 0 24 29 1 #"\n"
0 0 24 3 13 #" [("
0 0 14 3 7 #"number?"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 2 #") "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 1 #"]"
0 0 24 29 1 #"\n"
0 0 24 3 12 #" ["
0 0 14 3 4 #"else"
0 0 24 3 1 #" "
0 0 24 29 1 #"\n"
0 0 24 3 13 #" ("
0 0 15 3 3 #"let"
0 0 24 3 3 #" (["
0 0 14 3 2 #"op"
0 0 24 3 2 #" ("
0 0 14 3 3 #"car"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 2 #")]"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" ["
0 0 14 3 4 #"left"
0 0 24 3 3 #" ("
0 0 14 3 4 #"calc"
0 0 24 3 2 #" ("
0 0 14 3 4 #"cadr"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 3 #"))]"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" ["
0 0 14 3 5 #"right"
0 0 24 3 2 #" ("
0 0 14 3 4 #"calc"
0 0 24 3 2 #" ("
0 0 14 3 5 #"caddr"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 4 #"))])"
0 0 24 29 1 #"\n"
0 0 24 3 16 #" (("
0 0 15 3 4 #"cond"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" [("
0 0 14 3 6 #"equal?"
0 0 24 3 1 #" "
0 0 14 3 2 #"op"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 14 3 1 #"+"
0 0 24 3 2 #") "
0 0 14 3 1 #"+"
0 0 24 3 1 #"]"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" [("
0 0 14 3 6 #"equal?"
0 0 24 3 1 #" "
0 0 14 3 2 #"op"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 14 3 1 #"-"
0 0 24 3 2 #") "
0 0 14 3 1 #"-"
0 0 24 3 1 #"]"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" [("
0 0 14 3 6 #"equal?"
0 0 24 3 1 #" "
0 0 14 3 2 #"op"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 14 3 1 #"*"
0 0 24 3 2 #") "
0 0 14 3 1 #"*"
0 0 24 3 1 #"]"
0 0 24 29 1 #"\n"
0 0 24 3 19 #" [("
0 0 14 3 6 #"equal?"
0 0 24 3 1 #" "
0 0 14 3 2 #"op"
0 0 24 3 1 #" "
0 0 21 3 1 #"'"
0 0 14 3 1 #"/"
0 0 24 3 3 #") ("
0 0 14 3 2 #"if"
0 0 24 3 2 #" ("
0 0 14 3 1 #"="
0 0 24 3 1 #" "
0 0 14 3 5 #"right"
0 0 24 3 1 #" "
0 0 21 3 1 #"0"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 38 #" ("
0 0 14 3 6 #"return"
0 0 24 3 1 #" "
0 0 21 3 2 #"-1"
0 0 24 3 2 #") "
0 0 14 3 1 #"/"
0 0 24 3 5 #")]) "
0 0 14 3 4 #"left"
0 0 24 3 1 #" "
0 0 24 29 1 #"\n"
0 0 24 3 55 #" "
0 0 14 3 5 #"right"
0 0 24 3 8 #"))])))))"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 15 3 6 #"define"
0 0 24 3 2 #" ("
0 0 14 3 8 #"solution"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 5 #" {"
0 0 15 3 4 #"for*"
0 0 24 3 3 #" (["
0 0 14 3 9 #"a-op-list"
0 0 24 3 2 #" ("
0 0 14 3 7 #"Decare*"
0 0 24 3 1 #" "
0 0 21 3 1 #"`"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 3 31 #" "
0 0 21 3 1 #"`"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 2 #") "
0 0 24 29 1 #"\n"
0 0 24 3 31 #" "
0 0 21 3 1 #"`"
0 0 24 3 1 #"("
0 0 14 3 1 #"+"
0 0 24 3 1 #" "
0 0 14 3 1 #"-"
0 0 24 3 1 #" "
0 0 14 3 1 #"*"
0 0 24 3 1 #" "
0 0 14 3 1 #"/"
0 0 24 3 3 #"))]"
0 0 24 29 1 #"\n"
0 0 24 3 12 #" ["
0 0 14 3 13 #"a-permutation"
0 0 24 3 2 #" ("
0 0 14 3 17 #"remove-duplicates"
0 0 24 3 1 #" "
0 0 24 29 1 #"\n"
0 0 24 3 28 #" ("
0 0 14 3 15 #"my-permutations"
0 0 24 3 2 #" ("
0 0 14 3 4 #"list"
0 0 24 3 1 #" "
0 0 14 3 1 #"a"
0 0 24 3 1 #" "
0 0 14 3 1 #"b"
0 0 24 3 1 #" "
0 0 14 3 1 #"c"
0 0 24 3 1 #" "
0 0 14 3 1 #"d"
0 0 24 3 4 #")))]"
0 0 24 29 1 #"\n"
0 0 24 3 12 #" ["
0 0 14 3 7 #"a-order"
0 0 24 3 2 #" ("
0 0 14 3 5 #"apply"
0 0 24 3 1 #" "
0 0 14 3 13 #"all-orders-of"
0 0 24 3 1 #" "
0 0 14 3 13 #"a-permutation"
0 0 24 3 3 #")])"
0 0 24 29 1 #"\n"
0 0 24 3 7 #" ("
0 0 15 3 3 #"let"
0 0 24 3 3 #" (["
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 2 #" ("
0 0 14 3 14 #"make-calc-tree"
0 0 24 3 1 #" "
0 0 14 3 9 #"a-op-list"
0 0 24 3 1 #" "
0 0 14 3 7 #"a-order"
0 0 24 3 3 #")])"
0 0 24 29 1 #"\n"
0 0 24 3 9 #" ("
0 0 15 3 4 #"when"
0 0 24 3 2 #" ("
0 0 14 3 1 #"="
0 0 24 3 1 #" "
0 0 21 3 2 #"24"
0 0 24 3 3 #" ("
0 0 14 3 4 #"calc"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 3 11 #" ("
0 0 14 3 9 #"displayln"
0 0 24 3 1 #" "
0 0 14 3 11 #"a-calc-tree"
0 0 24 3 5 #")))})"
0 0 24 29 1 #"\n"
0 0 24 3 3 #" ("
0 0 14 3 8 #"solution"
0 0 24 3 2 #"))"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 3 1 #"("
0 0 14 3 6 #"calc24"
0 0 24 3 1 #" "
0 0 21 3 1 #"1"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #" "
0 0 21 3 1 #"5"
0 0 24 3 1 #")"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 0 24 29 1 #"\n"
0 7 13 4 0 0 0 1 0 14 3 16
#"391306642@qq.com"
0 0 0 0
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Racket
1
https://gitee.com/zhangshenhua/five-lisp-challenge.git
git@gitee.com:zhangshenhua/five-lisp-challenge.git
zhangshenhua
five-lisp-challenge
five-lisp-challenge
master

搜索帮助