游戏算法中lua脚本详解

　　此外，函数本身也是一个变量，比如：
　　dp@dp:~ % cat test.lua
　　local mylen={}
　　mylen.len3=function (x,y,z)
　　return math.sqrt(x*x+y*y+z*z)
　　end
　　mylen.len2=function (x,y)
　　return math.sqrt(x*x+y*y)
　　end
　　print(mylen.len2(10,9))
　　print(mylen.len3(10,9,-9))
　　dp@dp:~ %
　　dp@dp:~ % lua test.lua
　　13.453624047074
　　16.186414056239
　　dp@dp:~ %
　　可以定义闭包，将一个函数写在另一个函数之内，定义在内部的函数可以访问外部函数的局部变量，lua中称之为closure:
　　dp@dp:~ % cat test1.lua
　　function mysum(i)
　　local sums=0
　　return function()
　　sums=sums+i
　　return sums
　　end
　　end
　　my_sum=mysum(2)
　　print(my_sum())
　　print(my_sum())
　　print(my_sum())
　　my_sum=mysum(9)
　　print(my_sum())
　　print(my_sum())
　　print(my_sum())
　　dp@dp:~ % lua test1.lua
　　2
　　4
　　6
　　9
　　18
　　27
　　dp@dp:~ %

　　可以使用loadfile与dofile将整个lua代码做为函数来执行：
　　> dofile("test1.lua")
　　2
　　4
　　6
　　9
　　18
　　27
　　> dofile("test.lua")
　　13.453624047074
　　16.186414056239
　　> myf=loadfile("test.lua")
　　> myf()
　　13.453624047
074
　　16.186414056239
　　也可以通过loadstring定义一段语句
　　然后将这段语句做为一个函数执行
　　> myf=loadstring("x=x*2")
　　> x=10
　　> myf()
　　> print(x)
　　20
　　> myff=loadstring("x=io.read();x=x+2;print(x)")
　　> myff() www.tygj123.com
　　234
　　236
　　检查条件，触发错误
　　dp@dp:~ % cat mysum.lua
　　mysum=0
　　while true do
　　print("请输入一个数(输入0退出计算)")
　　num=assert(io.read("*number"),"非数字输入")
　　print(num)
　　if num==0 then break end
　　end
　　dp@dp:~ %
　　dp@dp:~ % lua mysum.lua
　　请输入一个数(输入0退出计算)
　　asdf
　　lua: mysum.lua:4: 非数字输入
　　stack traceback:
　　[C]: in function 'assert'
　　mysum.lua:4: in main chunk
　　[C]: in ?
　　dp@dp:~ %
　　或
　　mysum=0
　　while true do
　　print("请输入一个数(输入0退出计算)")
　　num=io.read("*number")
　　if not num then error("非数字输入") end
　　print(num)
　　if num==0 then break end
　　End
　　运行后，输入非数字会触发错误而退出
　　dp@dp:~ % lua mysum1.lua
　　请输入一个数(输入0退出计算)
　　1342
　　1342
　　请输入一个数(输入0退出计算)
　　asf
　　lua: mynum1.lua:5: 非数字输入
　　stack traceback:
　　[C]: in function 'error'
　　mynum1.lua:5: in main chunk
　　[C]: in ?
　　dp@dp:~ %
　　也可使用pcall调用可能发生错误的函数，然后进一步处理错误
　　my_sum=0 www.yztrans.com
　　function mysum()
　　while true do
　　print("请输入一个数(输入0退出计算)")
　　num=io.read("*number")
　　if not num then error("非数字输入") end
　　if num==0 then break end
　　my_sum=my_sum+num
　　end
　　end
　　if pcall(mysum) then
　　print("计算完毕，累加结果:"..my_sum)
　　else
　　print("只能输入数字,程序异常退出!")
　　print("累加结果:"..my_sum)
　　end
　　dp@dp:~ % lua mysum.lua
　　请输入一个数(输入0退出计算)
　　234
　　请输入一个数(输入0退出计算)
　　-324
　　请输入一个数(输入0退出计算)
　　88
　　请输入一个数(输入0退出计算)
　　123
　　请输入一个数(输入0退出计算)
　　0
　　计算完毕，累加结果:121
　　dp@dp:~ % lua mysum.lua
　　请输入一个数(输入0退出计算)
　　234
　　请输入一个数(输入0退出计算)
　　-11
　　请输入一个数(输入0退出计算)
　　233
　　请输入一个数(输入0退出计算)
　　88
　　请输入一个数(输入0退出计算)
　　asdf
　　只能输入数字,程序异常退出!
　　累加结果:544