language-agnostic - 这里使用的是什么语言？

Question

我正在阅读我在网上找到的关于如何将 AI 添加到井字游戏中的章节。在它们之间的某个地方有一些伪代码片段，如下所示：

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

这是一段 Tic Tac Toe 实现的示例代码，用 Logo 编写，来自 Brian Harvey 的“Comp Sci Logo V1 2e”

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