dmz@x200:~/prj/raccoon/beepvm$ time (./beepc nmea.beep >/dev/null 2>1 && ./beepvm ./nmea.bin >/dev/null)

real    0m1.500s
user    0m1.480s
sys    0m0.004s

dmz@x200:~/prj/raccoon/beepvm$ time (./beepvm ./nmea.bin >/dev/null)

real    0m1.386s
user    0m1.352s
sys    0m0.000s

dmz@x200:~/prj/raccoon/beepvm$ time python ./nmea.py >/dev/null

real    0m3.251s
user    0m3.228s
sys    0m0.004s

type  nmea_gga   {   time_utc: string,
                     lat:      string,
                     lat_semi: string,
                     lon:      string,
                     lon_semi: string,
                     fix:      string,
                     sat:      string
                  }

def nmea_parse_gga(s)
{
    local c, i = 0, j = 0, comma = 0;
    local len = strlen(s);

    local utc, lat, lat_s, lon, lon_s, fix, sat;

    while i < len {
        c = strnth(s, i);
        if c == ',' || c == '*' then 
        {
            comma = comma + 1;
            if   comma == 2 then utc   = strsub(s, j, 6);
            elif comma == 3 then lat   = strsub(s, j, i-j);
            elif comma == 4 then lat_s = strsub(s, j, i-j);
            elif comma == 5 then lon   = strsub(s, j, i-j);
            elif comma == 6 then lon_s = strsub(s, j, i-j);
            elif comma == 7 then fix   = strsub(s, j, i-j);
            elif comma == 8 then sat   = strsub(s, j, i-j);
            j = i+1;
        }
        i = i + 1;
        if i == len || c == '*' then break;
    }

    ret { time_utc=utc, lat=lat, lat_semi=lat_s,
          lon=lon,      lon_semi=lon_s,
          fix=fix,      sat=sat
          of nmea_gga
        };
}


def main()
{
    local s   = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42";
    local i = 0;
    while i < 0xFFFF {
        local gga = nmea_parse_gga(s);
        putsn(gga.time_utc);
        putsn(gga.sat);
        putsn(gga.fix);
        putsn(gga.lat);
        putsn(gga.lat_semi);
        putsn(gga.lon);
        putsn(gga.lon_semi);
        i = i + 1;
    }
}

class nmea_gga:
    def __init__(self, time_utc, lat, lat_semi, lon, lon_semi, fix, sat):
        self.time_utc = time_utc
        self.lat      = lat
        self.lat_semi = lat_semi
        self.lon      = lon
        self.lon_semi = lon_semi
        self.fix      = fix
        self.sat      = sat

def nmea_parse_gga(s):
    (c, i, j, comma) = ('',0,0,0)
    ln = len(s)
    (utc, lat, lat_s, lon, lon_s, fix, sat) = ('','','','','','','')
    while i < ln:
        c = s[i]
        if c  == ',' or c == '*':
            comma = comma + 1
            if comma == 2:   utc   = s[j:j+6]
            elif comma == 3: lat   = s[j:i]
            elif comma == 4: lat_s = s[j:i]
            elif comma == 5: lon   = s[j:i]
            elif comma == 6: lon_s = s[j:i]
            elif comma == 7: fix   = s[j:i]
            elif comma == 8: sat   = s[j:i]
            j = i + 1
        i = i + 1
        if i == ln or c == '*':
            break

    return nmea_gga(time_utc=utc, lat=lat, lat_semi=lat_s, lon=lon, lon_semi=lon_s, fix=fix, sat=sat) 

if __name__ == "__main__":
    s = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42";
    i = 0
    while i < 0xFFFF:
        gga = nmea_parse_gga(s)
        print gga.time_utc
        print gga.sat
        print gga.fix
        print gga.lat
        print gga.lat_semi
        print gga.lon
        print gga.lon_semi
        i = i + 1

--// Lua 5.1.x
local COMMA, STAR = (","):byte(), ("*"):byte()

local function nmea_parse_gga(s)
  local result, j, comma = {}, 1, 0
  for i=1,#s do
    local c = s:byte(i)
    if c == COMMA then
      comma = comma + 1
      if     comma == 2 then result.time_utc = s:sub(j,i-1)
      elseif comma == 3 then result.lat      = s:sub(j,i-1)
      elseif comma == 4 then result.lat_semi = s:sub(j,i-1)
      elseif comma == 5 then result.lon      = s:sub(j,i-1)
      elseif comma == 6 then result.lon_semi = s:sub(j,i-1)
      elseif comma == 7 then result.fix      = s:sub(j,i-1)
      elseif comma == 8 then result.sat      = s:sub(j,i-1)
      end
      j = i+1
    elseif c == STAR then 
      break 
    end
  end
  return result
end


--// TEST:
local s = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42"

for i=1,0xFFFF do
  local gga = nmea_parse_gga(s)
  assert(    gga.time_utc == "121505" 
         and gga.sat      == "08"
         and gga.fix      == "1"
         and gga.lat      == "4807.038"
         and gga.lat_semi == "N"
         and gga.lon      == "01131.324"
         and gga.lon_semi == "E")
--//   print(gga.time_utc)
--//   print(gga.sat)
--//   print(gga.fix)
--//   print(gga.lat)
--//   print(gga.lat_semi)
--//   print(gga.lon)
--//   print(gga.lon_semi)
end

VM_WORD beepvm__put_str(void *data)
{
    VM *vm = (VM*)data;
    VM_WORD addr = 0;
    VM_WORD *p;
    uint16_t len = 0;
    char *ps = 0;
    addr = beepvm__api_pop_arg(data);
    p  = ADDR2PTR(vm, addr);
    len = beepvm__api_strlen(data, p);
    ps = (char*)(p+1); 
    while( len-- ) printf("%c",*ps++);
    return 0;
}

VM_WORD beepvm__put_strn(void *data)
{
    beepvm__put_str(data);
    printf("\n");
    return 0;
}

def nmea_parse_gga(s):
    (c, i, j, comma) = ('',0,0,0)
    ln = len(s)
    (utc, lat, lat_s, lon, lon_s, fix, sat) = ('','','','','','','')
    while i < ln:
        c = s[i]
        if c  == ',' or c == '*':
            comma = comma + 1
            if comma == 2:   utc   = s[j:j+6]
            elif comma == 3: lat   = s[j:i]
            elif comma == 4: lat_s = s[j:i]
            elif comma == 5: lon   = s[j:i]
            elif comma == 6: lon_s = s[j:i]
            elif comma == 7: fix   = s[j:i]
            elif comma == 8: sat   = s[j:i]
            j = i + 1
        i = i + 1
        if i == ln or c == '*':
            break

    return (utc, lat, lat_s, lon, lon_s, fix, sat) 

if __name__ == "__main__":
    s = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42";
    i = 0
    while i < 0xFFFF:
        gga = nmea_parse_gga(s)
        i = i + 1

dmz@x200:~/prj/raccoon/beepvm$ time python ./nmea.py 

real    0m2.574s
user    0m2.568s
sys    0m0.000s

СТРОКА ВСЯКИЙ БРЕД 0.XXXXX
....

 obj.foo = bar;

The Hume to C compiler (humec) translates HAM instructions
produced by the phamc compiler into portable C code using a template-instantiation approach.
This provides a higher-performance route for deploying Hume code, that has been tested on a
number of platforms, including Linux, MacOSX, the a Renesas M32C development board and the
Tmote Sky. The Renesas board uses a 32-bit embedded microcontroller with 16KB DRAM, the
Tmote Sky is a 16-bit standalone computing device with 8KB of DRAM

--// lua 5.0.x

local byte, sub = string.byte,string.sub

local COMMA, STAR = byte(","), byte("*")

local function nmea_parse_gga(s)
  local result, j, comma = {}, 1, 0
  local len = string.len(s)
  for i=1,len do
    local c = byte(s,i)
    if c == COMMA then
      comma = comma + 1
      if     comma == 2 then result.time_utc = sub(s,j,i-1)
      elseif comma == 3 then result.lat      = sub(s,j,i-1)
      elseif comma == 4 then result.lat_semi = sub(s,j,i-1)
      elseif comma == 5 then result.lon      = sub(s,j,i-1)
      elseif comma == 6 then result.lon_semi = sub(s,j,i-1)
      elseif comma == 7 then result.fix      = sub(s,j,i-1)
      elseif comma == 8 then result.sat      = sub(s,j,i-1)
      end
      j = i+1
    elseif c == STAR then 
      break 
    end
  end
  return result
end


--// TEST:
local s = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42"

local N = 65535

for i=1,N do
  local gga = nmea_parse_gga(s)
  assert(    gga.time_utc == "121505" 
         and gga.sat      == "08"
         and gga.fix      == "1"
         and gga.lat      == "4807.038"
         and gga.lat_semi == "N"
         and gga.lon      == "01131.324"
         and gga.lon_semi == "E")
--//   print(gga.time_utc)
--//   print(gga.sat)
--//   print(gga.fix)
--//   print(gga.lat)
--//   print(gga.lat_semi)
--//   print(gga.lon)
--//   print(gga.lon_semi)
end

dmz@x200:~/prj/haxe/haxe-1.19/haxe$ cat ./type.ml ./typer.ml  | wc -lc
   4096  125288

Tmote Sky is a 16-bit standalone computing device with 8KB of DRAM

    goto *instruction[code[++ip]];

--// Lua 5.0.x
local gfind = string.gfind

local fields = {
  "header","time_utc","lat","lat_semi","lon","lon_semi","fix","sat"
}

local function nmea_parse_gga(s)
  local obj, comma = {}, 0
  for data, sep in gfind(s,"([^,*]*)([,*])") do
    comma = comma + 1
    if sep == "*" or comma > 8 then break end
    obj[fields[comma]] = data
  end
  return obj
end

--// TEST:

local s = "$GPGGA,121505,4807.038,N,01131.324,E,1,08,0,9133.4,M,46.9,M,,*42"

local N = 65535

for i=1,N do
  local gga = nmea_parse_gga(s)
    assert(    gga.time_utc == "121505" 
           and gga.sat      == "08"
           and gga.fix      == "1"
           and gga.lat      == "4807.038"
           and gga.lat_semi == "N"
           and gga.lon      == "01131.324"
           and gga.lon_semi == "E")
--//   print(gga.time_utc)
--//   print(gga.sat)
--//   print(gga.fix)
--//   print(gga.lat)
--//   print(gga.lat_semi)
--//   print(gga.lon)
--//   print(gga.lon_semi)
end

M>>А вот это верно, видимо, толко для микроконтроллеров

def factory( **kwa ):
        def g():
                for i in kwa['a']:
                        if i % 2:
                                yield i*i
        return g    

b = factory( a=[1,2,3,4,5] )

a = [1,2,3,4,5]
b = (i*i for i in a if i % 2)

M>Очень может быть, что это просто личные предпочтения, как с Перлом, например

a = [1,2,3,4,5]
b = (i*i for i in a if i % 2)

-- // lua 
local co = coroutine
local wrap, yield = co.wrap,co.yield


local function factory(t)
  return wrap(function() 
                for i,v in ipairs(t.a) do 
                  if v%2~=0 then yield(v) end
                end
              end)
end

--// using:
local gen = factory{a={1,2,3,4,5}}
for x in gen do print(x,x) end

obj.prop = "something"

dmz>СТРОКА ВСЯКИЙ БРЕД 0.XXXXX
dmz>....
dmz>

print sum(int(x.rsplit('.', 1)[-1]) for x in file('log'))

print sum(int(x.rsplit('.', 1)[-1]) for x in file('log'))

import sys; print sum(int(x.rsplit('.', 1)[-1]) for x in sys.stdin)