Head First Lua in 30 minutes

#!/usr/bin/env lua
-- defines a factorial function
function fact (n)
  if n == 0 then
    return 1
  else
    return n * fact(n - 1)
  end
end
print("enter a number:")
a = io.read("*n")
print(fact(a))

## Numerals
4.57e-3
0.3e12
5E+20
math.type(3)
0xff0x1A3

## Relational Operators
< > <= >= == ~=

## Strings
a = "one string"
b = string.gsub(a, "one", "another")
string.rep("abc", 3)
string.reverse("A Long Line!")
string.lower("A Long Line!")
string.upper("A Long Line!")
tonumber(" -3 ")
tonumber(" 10e4 ")
tonumber("100101", 2)
tonumber("fff", 16)

## Tables
a = {}
k = "x"
a[k] = 10
a[20] = "great"
print(a["x"])
k = 20
print(a[k])
a["x"] = a["x"] + 1
print(a[k])
a.x = 10
print(a.x)

t = {10, print, x = 12, k = "hi"}
for k, v in pairs(t) do
  print(k, v)
end

-- add the elements of sequence 'a'
function add (a)
  local sum = 0
  for i = 1, #a do
    sum = sum + a[i]
  end
  return sum
end

a = {p = print}
a.p("hello world")
print = math.sin
a.p(print(1))
math.sin = a.p
math.sin(10, 20)

function foo (x)  return 2*x  end
foo = function (x) return 2*x end

network = {
                 {name = "grauna",  IP = "210.26.30.34"},
                 {name = "arraial", IP = "210.26.30.23"},
                 {name = "lua",     IP = "210.26.23.12"},
                 {name = "derain",  IP = "210.26.23.20"},
}
table.sort(network, function (a,b) return (a.name > b.name) end

luac -o prog.lc prog.lua
lua prog.lc

local ok, msg = pcall(function ()
  -- some code
    if unexpected_condition then error() end
  -- some code
    print(a[i])    -- potential error: 'a' may not be a table
  -- some code
    end)

if ok then    -- no errors while running protected code
  -- regular code
else   -- protected code raised an error: take appropriate action
  -- error-handling code
end