在这里使用什么语言？

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

这是一块的井字的实现的示例代码，写入标志，从布赖恩Harvey的“小样科学标志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