env.l

来自「A very small LISP implementation with se」· L 代码 · 共 104 行

L
104 行
字号 
# 21jan07abu# (c) Software Lab. Alexander Burger(model This   '(runway1  -120.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway2  -80.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway3  -40.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway4  0.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway5  +40.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway6  +80.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(model This   '(runway7  +120.0  -200.0  -0.02      (`DarkGrey NIL        +20.0   -20.0      0        +20.0   +20.0      0        -20.0   +20.0      0        -20.0   -20.0      0 )      (`White NIL        +10.0    -1.0      0        +10.0    +1.0      0        -10.0    +1.0      0        -10.0    -1.0      0 ) ) )(=: env   (list      (: runway1)      (: runway2)      (: runway3)      (: runway4)      (: runway5)      (: runway6)      (: runway7) ) )

env.l - 源码说明

本页面展示了「A very small LISP implementation with several packages and demo programs.」中的 env.l 源码文件，采用 L 编程语言编写，共 104 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与LISP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?