Luaサンプル・スクリプト
=====================
### 表示テスト
-- print test
for i=1, 10, 1 do
print (i .. ": Hello world!")
end
### 素数を求める
-- 素数を求める
prime_list = {2}
for x = 3, 100, 2 do
a = true
for y = 1, #prime_list do
z = prime_list[y]
if x % z == 0 then
a = false
break
end
end
if a then
table.insert(prime_list, x)
end
end
for x = 1, #prime_list do
io.write(prime_list[x])
io.write(" ")
end
io.write("\n")
### 素数を求める(関数編)
-- 素数を求める(関数編)
-- 素数か?
function primep(x, prime_list)
for i = 1, #prime_list do
local y = prime_list[i]
if y * y > x then
break
end
if x % y == 0 then
return false
end
end
return true
end
-- 素数を求める
function prime(n)
local prime_list = {2}
for x = 3, n, 2 do
if primep(x, prime_list) then
table.insert(prime_list, x)
end
end
return prime_list
end
for i, v in ipairs(prime(100)) do
io.write(v)
io.write(" ")
end
io.write("\n")
### ファイル書き込み・読み出し
-- File write and read test program
testfile = "/tmp/write.txt"
-- ファイル出力サンプル
print("<<< file write ==> " .. testfile .. " >>>")
-- io.openで、ファイルを開く
f = io.open(testfile, "w")
f:write("Luaから\n")
f:write("テキストファイルを\n")
f:write("出力してみます。\n")
-- 最後にf:closeでファイルを閉じる
f:close()
-- ファイル読み込みサンプル
print("<<< file read <== " .. testfile .. " >>>");
-- io.openで、ファイルを開く
f = io.open(testfile, "r")
-- f:linesで一行ずつテキストファイルを読み込む
for line in f:lines() do
print(line)
end
-- 最後にf:closeでファイルを閉じる
f:close()
参考
----
1. [[http://www.nct9.ne.jp/m_hiroi/light/lua.html|お気楽 Lua プログラミング超入門]]