这里使用的语言是什么？

Question

我正在阅读我在网上找到的关于如何将AI添加到tic tac toe游戏中的章节。介于两者之间的某些伪代码片段如下：

to checkwin :candidate :mysquares :free ;; old program
if memberp first :candidate :free ~
[output check1 butfirst :candidate :mysquares]
if memberp last :candidate :free ~
[output check1 butlast :candidate :mysquares]
if memberp first butfirst :candidate :free ~
[output check1 list first :candidate last :candidate :mysquares]
output "false
end  

这是什么语言？
它想传达什么？

Answer 1

这是使用Brian Harvey的“Comp Sci Logo V1 2e”以Logo编写的Tic Tac Toe实现的示例代码

http://books.google.com.au/books?id=BmuqURW0G5UC&lpg=PA114&ots=qZctpJejJa&dq=butfirst%20candidate%20free&pg=PA114#v=onepage&q&f=false