1
print(1)

1
print("hello")

1
paste("hello")

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
3
4
ass = { 'asd','asd1','asd2' }
for i,s in ipairs(ass) do
print (s)
end

1
 

1
2
x = {'foo', 'bar'}
for i,v in ipairs(x) do print (i ..':'.. v) end

1
2
x = {'foo', 'bar'}
for i,v in ipairs(x) do print (i ..':'.. v) end

1
2
x = {'foo', 'bar'}
print(ipairs(x))

1
2
x = {'foo', 'bar'}
print(x)

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
3
function main()
 print("1-skrypt w Lua")
end

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
print( math.sin"1.0" )  -- sin(1.0)
print( string.byte(0) ) -- "0" の文字コード（ASCIIの場合 48 ）

1
2
t = {1, 2, 3}
print(#t)

1
=1+1

1
2
3
4
5
6
7
8
9
#include <iostream>
#include <cstdio>
extern "C"
{
  #include <lua.h>
  #include <lualib.h>
  #include <lauxlib.h>
}
void func();
 ...

1
2
t = {1, 2, 3}
print(#t)

1
2
t = {}
print(#t)

1
2
t = {}
print(#t)

1
2
3
4
5
6
7
8
require "os"
 
function donothing(y)
end
 
for i = 0, 1000000 do 
    donothing(i);
end

1
2
function self(y) return y end
 

1
2
function x(y) print(y) end
 

1
function x(y) print(y) end(6) 

1
2
3
4
5
6
7
8
9
local list = {value, _next = list};
 
list.value = 56;
list._next.value = 33;
local iter = list;
 
while iter.value ~= nil do
    print(iter.value)
    iter = iter._next;

1
2
3
4
5
6
7
8
9
local list = {value, next = list};
 
list.value = 56;
list.next.value = 33;
local iter = list;
 
while iter.value ~= nil do
    print(iter.value)
    iter = iter.next;

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
3
4
5
6
7
8
9
function within(next_result_function, epsilon)
    prev_result = next_result_function()
    curr_result = next_result_function()
    while math.abs(prev_result - curr_result) > epsilon do
        prev_result = curr_result
        curr_result = next_result_function()
    end
    return curr_result
end
 ...

1
2
3
4
5
6
7
8
9
function within(next_result_function, epsilon)
    prev_result = next_result_function()
    curr_result = next_result_function()
    while math.abs(prev_result - curr_result) > epsilon do
        prev_result = curr_result
        curr_result = next_result_function()
    end
    return curr_result
end
 ...