1
2
3
4
5
6
7
8
9
function add(n, acc)
  acc = acc or 0
  if n == 0 then
    return acc
  end
  return add(n-1, 1+acc)
end
 
print(add(1000000))

1
print("Hello, World!")

1
2
3
4
5
tbl = {1, 2, 3, 4, 5}
print(tbl[1])
--配列数を取得
print(#tbl)
print(table.getn(tbl))

1
:a

1
2
a = "aiueo
    "

1
a = "aiueo

1
2
3
4
5
6
7
8
9
#!/usr/bin/env lua
 
accumulator = 0
while true do
    io.write(">>> ")
    local input = io.stdin:read'*l'
    if accumulator == 256 or accumulator < 0 then accumulator = 0 end
    if input == "i" then
        accumulator = accumulator + 1
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/env lua
 
accumulator = 0
while true do
    io.write(">>> ")
    local input = io.stdin:read'*l'
    if accumulator == 256 or accumulator < 0 then accumulator = 0 end
    if input == "i" then
        accumulator = accumulator + 1
 ...

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
print("KILL YOURSELF IMMEDIATLY");

1
2
3
function main()
        print("KILL YOURSELF IMMDEIATLY")
end

1
2
3
4
5
...
local item
for k,i in _G.pairs(self.pages[pageOffset + 1].items) do item = i break end
item.selectable = true
...

1
2
3
4
5
6
7
8
9
function add(n, acc)
  acc = acc or 0
  if n == 0 then
    return acc
  end
  return add(n-1, 1+acc)
end
 
print(add(1000000))

1
2
3
4
5
6
7
8
9
function func()
  return 10, 20, 30, 40, 50, "abc"
end
 
r1, r2, r3, r4, r5, r6 = func()
 
print(r1, r2, r3, r4, r5, r6)
print(type(r1))
print(type(r6))

1
2
3
4
5
6
7
8
function func(...)
  local n = {...}
  for i =1, table.getn(n) do
    print(n[i])
  end
end
 
func(1,2,3, "test",5)

1
2
3
4
5
6
7
8
9
function func()
  return 10, 20, 30, 40, 50, "abc"
end
 
r1, r2, r3, r4, r5, r6 = func()
 
print(r1, r2, r3, r4, r5, r6)
print(type(r1))
print(type(r6))

1
"Eduardo".length

1
2
3
4
5
6
7
8
9
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...

1
help

1
print ('Hello, World')

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
while true do
  local a = io.read("*n")
  if a == 42 then 
    return 
  end
  io.write(a, "\n")
end

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

1
2
3
4
5
6
7
8
9
function add(n, acc)
  acc = acc or 0
  if n == 0 then
    return acc
  end
  return add(n-1, 1+acc)
end
 
print(add(1000000))

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

1
2
3
xx=2012
print(xx==2012
and -xx or 2012)

1
2
3
xx=2012
print(xx==2012
and --xx or 2012)

1
2
3
x=2012
print(x==2012
and 1 or 2012)

1
2
3
x=2012
print-(x==2012
and x or 2012)