Holywar: AngelScript vs Lua (5 стр)

function fib(n)
  return fib_tail(n, 1, 0)
end

function fib_tail(n, next, result)
  if n == 0 then return result end
  return fib_tail(n - 1, next + result, next)
end

print(fib(10000))

local function fib(n)
  if n < 2 then return 1 end
  return fib(n-2) + fib(n-1)
end

print(fib(tonumber(arg[1])))

// C++ code
//эти перемееные будут изменятся скриптом, но будут доступны программе.
int counter = 5;
float time = 0;
engine->RegisterGlobalProperty("int counter", &counter);
engine->RegisterGlobalProperty("const float time", &time);

// AngelScript code
void DoSomething()
{
  if( time > 1 )
    counter += 2;
  else
    counter++;
}

// class registration
module(L)[
    class_<CObject>("CObject")
        .def("Sum",&CObject::Sum)
];

// class registration
module(L)[
    class_<CObject>("CObject")
        .def("Sum",(float (CObject::*)(float,float))(&CObject::Sum))
];

int32 fib(int32 n)
{
  if (n == 0) return 0;
  else
  if (n == 1) return 1;

  return (fib(n-1) + fib(n-2));
};

void main()
{
print(fib(40));
}

void export_application()
{
class_<win_app>("application", init<boost::python::object &>())
    .def("run",                  &win_app::run)
    .def("close",                &win_app::close)
    .def("switch_screen_mode",   &win_app::switch_screen_mode)
    .add_property("title",       &win_app::title, &win_app::set_title)
    .add_property("width",       &win_app::width)
    .add_property("height",      &win_app::height)
    .add_property("base_width",  &win_app::base_width)
    .add_property("base_height", &win_app::base_height)
    .add_property("fullscreen",  &win_app::fullscreen)
    .add_property("win_handle",  &win_app::win_handle)
    .add_property("time",        &win_app::time)
    .add_property("dt",          &win_app::dt)
    .add_property("fps",         &win_app::fps)
    .add_property("average_fps", &win_app::average_fps)
    .add_property("fps_upgrade", &win_app::fps_upgrade)
    ;
    
def("module_path",       module_path);
def("full_module_name",  full_module_name);
def("full_exe_name",     full_exe_name);
def("sys_info",          get_os_cpu_info);
def("display_name",      display_name);
def("build_info",        get_build_info);
def("file_version_info", get_file_version_info, gfvi_overloads());
}

dict py_symbols(py_eval(run_str));

while(py_symbols)
 {
 tuple kv = py_symbols.popitem();
 
 char_t key  = extract<char_t>(kv[0]);
 tuple value(kv[1]);
 
 fdata fd;
 
 fd.x = extract<int>(value[0]);
 fd.y = extract<int>(value[1]);
 fd.w = extract<int>(value[2]);
 fd.h = extract<int>(value[3]);
 
 symbols_[key] = fd;
 }

//LUA
local function fib(n)
   if (n == 0) then return 0
     elseif (n == 1) then return 1
   end
   return fib(n-1) + fib(n-2)
end 

print(fib(40)) 

//AngelScript
int32 fib(int32 n)
{
     if (n == 0) return 0;
     else
     if (n == 1) return 1;
     return (fib(n-1) + fib(n-2));
};
void main()
{
     print(fib(40));
};

//C++ (asm compiled)
int fib(int n)
{
  if (n == 0) return 0;
  else
  if (n == 1) return 1;
  return (fib(n-1) + fib(n-2));
};

//LUA
function fib(n)
   if n < 2 then return 1 end
   return fib(n-2) + fib(n-1)
end

print(fib(40)) 

//AngelScript
int32 fib(int32 n)
{
   if (n < 2) return 1;
   return (fib(n-1) + fib(n-2));
};
void main()
{
     print(fib(40));
};

//LUA
local function Ack(M, N)
   if (M == 0) then
      return( N + 1 )
   end
   if (N == 0) then
      return( Ack(M - 1, 1) )
   end
   return( Ack(M - 1, Ack(M, (N - 1))) )
end
print(Ack(3,11))

//AngelScript
int32 ack(int32 m,int32 n)
{
   if (m == 0) return n+1;
   if (n == 0) return ack(m-1,1);
   return ack(m-1,ack(m,(n-1)));
};
void main()
{
     print(ack(3,11));
};

//LUA
function fib_tail(n, next, result)\n"
  if n == 0 then return result end\n"
  return fib_tail(n - 1, next + result, next)\n"
end

function fib(n)
  return fib_tail(n, 1, 0)
end
print(fib(40000))

//AngelScript
int32 fib(int32 n)
{ 
   return fib_tail(n,1,0);
};
int32 fib_tail(int32 n,int32 next,int32 r)
{
   if (n == 0) return r;
   return fib_tail(n-1,next + r,next);
};
void main()
{
   print(fib(40000));
}

//LUA
local function calc(n)
   for i = 1,n do
     res = i*5 + 12/(i+1) - i*(i+2)
   end
   return res
end
print(calc(30000000))

//AngelScript
double calc(int32 n)
{
   float res;  //модификация double
   int32 i;    //модификация double
   for (i = 1;i<n;++i)
   {
      res = i*5 + 12.0f/(i+1) - i*(i+2);
   };
return res;
};
void main()
{
     print(calc(30000000));
};