Замыкание, или аргументы в функциях

function prov(f,delta)
delta=delta or 1e-4
return function (x)
delta=delta+1e-4
return (f(x+delta)-f(x))/delta
end
end
c=prov(math.sin)
 
print(math.cos(5.2),c(5.2))

function cached_EMA() 
local cache={} 
return function(ind, _p, v_t, kk)
local n = 0 
local p = 0 
local period = _p 
local v_type = v_t 
local index = ind 
local k = kk or 2/(period+1) 
if index == 1 then 
cache = {} 
end 
if index < period then 
cache[index] = average(1,index, v_type) 
return nil 
end 
p = cache[index-1] or dValue(index, v_type) 
n = k*dValue(index, v_type)+(1-k)*p 
cache[index] = n 
return n 
end 
end

function const( param )
 
   local delta = param
 
   local f = {}
 
   f.add =
     function( n )
         return n + delta
     end
   f.sub =
     function( n )
         return n - delta
     end
 
   return f
 
end
 
const_5 = const( 5 )
 
print( const_5.add( 10 ) ) -- 10 + 5 = 15
print( const_5.sub( 10 ) ) -- 10 - 5 = 5

local t = { -- создаем исходную таблицу
 
  [ "Вася" ] = 12,
  [ "Петя" ] = 25,
  [ "Коля" ] = 33,
}
 
local age -- возраст
 
   t[ "Олег" ] = 44 -- создаем новую запись
   age = t[ "Петя" ] -- читаем возраст Пети
   t[ "Вася" ] = 23 -- изменяем возраст Васи
 
   print( age ) -- смотрим возраст Пети
 
   for k, v in pairs( t ) do
       print( k, v ) -- смотрим, кто у нас есть и кому сколько лет
   end
 
function table_write( t, k, v ) -- ф-ция записи/модификации
    t[ k ] = v
end
 
function table_read( t, k ) -- ф-ция чтения
    return t[ k ]
end
 
   table_write( t, "Макс", 16 ) -- добавляем 16-летнего Макса
 
   print( table_read( t, "Макс" ) ) -- убеждаемся, что ему 16
 
   for k, v in pairs( t ) do
       print( k, v ) -- смотрим, что изменилось
   end