Latest comments for language 'Lua' on doukaku.org

とおる。's comment on 疑似並行処理

初チャレンジ。 Lua のコルーチンで for ループを素朴に使っています。

function mkfunc (printfunc)
  return function ()
    for v = 1, 10 do
      printfunc (v)
      coroutine.yield ()
    end
  end
end

function printalpha (n)
  print (string.char (n + string.byte ("A") - 1))
end

function costat (c)
  return coroutine.status (c) == "suspended"
end

local c, d = coroutine.create (mkfunc (print)),
             coroutine.create (mkfunc (printalpha))

while costat (c) or costat (d) do
  coroutine.resume (c)
  coroutine.resume (d)
end

[ Lua ] [ download code ] ]

matyr's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

stdin からで 59B。

1	n=io.read()for i=-n,n do print(('*'):rep(n-math.abs(i)))end

[ Lua ] [ download code ] ]

silverwire's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

 Luaでワンライナーです。(不要な半角空白を除けば76バイト。)

1	(function (n) for i = 1 - n, n - 1 do print(string.rep('*', n - math.abs(i))) end end)(4)

[ Lua ] [ download code ] ]

silverwire's comment on 年間カレンダー

年間カレンダー (Nested Flatten)

 Lua始めました。

-- 閏年かどうか判定
L = 
function (y)
    if y % 400 == 0 then return 1 end
    if y % 100 == 0 then return 0 end
    if y %   4 == 0 then return 1 end
    return 0
end

-- 指定された日の曜日を取得
W = 
function (y, m, d)
    return tonumber(os.date('%w', os.time({ year = y, month = m, day = d })))
end

(function (v)
    local d = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
    local w = { 'Su', 'Mo', 'Tu', 'We', 'Th', 'Fr', 'Sa' }
    local m, t, y

    if #v ~= 2 then
        io.stderr:write('usage: ' .. v[0] .. ' [month] [year]\n')
        return 1
    end

    m, y = tonumber(v[1]), tonumber(v[2])

    if m == nil or y == nil then
        io.stderr:write('usage: ' .. v[0] .. ' [month] [year]\n')
        return 1
    end

    if m < 1 or m > 12 then
        io.stderr:write('cal: illegal month value: use 1-12\n')
        return 1
    end
    if y < 1 or y > 9999 then
        io.stderr:write('cal: illegal year value: use 1-9999\n')
        return 1
    end

    -- 閏日を補正
    d[2] = d[2] + L(y)

    t = string.format('%4d/%2d', y, m) .. '\n'
     .. table.concat(w, ' ') .. '\n'
     .. string.rep('   ', W(y, m, 1))
    for i = 1, d[m] do
        t = t .. string.format('%2d', i)
        t = W(y, m, i) < 6 and t .. ' ' or t .. '\n'
    end
    print(t)

    return 0
end)(arg)

[ Lua ] [ download code ] ]

matyr's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

stdin → stdout

1	r=io.read():gsub('(%w)(%w+)',function(h,t)return h:upper()..t end)print(r)

[ Lua ] [ download code ] ]

pooq's comment on Hello, world!その２

Hello, world!その２ (Nested Flatten)

1	print "Hel\108o, w\111\114\108d!"

[ Lua ] [ download code ] ]

匿名's comment on 文字変換表に基く文字列の変換

文字変換表に基く文字列の変換 (Nested Flatten)

function tr(a, b, s)
  r = ''
  for i = 1, s:len() do
    j = a:find(s:sub(i, i))
    r = r .. (j and b:sub(j, j) or s:sub(i, i))
  end
  return r
end

print(tr('qwertyuiop', 'QWERTYUIOP', 'typewriter'))

[ Lua ] [ download code ] ]

匿名's comment on 不動点演算子

不動点演算子 (Nested Flatten)

以下のサイトが分かりやすかったです。
結果的に#5733さんのコードそのままになりました。

Y = function(f)
  g = function(proc) return f(function(arg) return proc(proc)(arg) end) end
  return g(g)
end

print(Y(function(f) return function(n) if n < 2 then return 1 else return n * f(n - 1) end end end)(10))

[ Lua ] [ download code ] ]

匿名's comment on 自分自身のファイル名を知る方法

自分自身のファイル名を知る方法 (Nested Flatten)

1	print(arg[0])

[ Lua ] [ download code ] ]

匿名's comment on データの整列

データの整列 (Nested Flatten)

昨日から使い始めたLuaで投稿

printt = function(t)
  for k, v in pairs(t) do print(string.format('{%d, %d}', v[1], v[2])) end
  print()
end

a = {{1,2}, {3,4}, {1,3}, {2,4}, {1,8}}
printt(a)
table.sort(a, function(b, c) return b[1] < c[1] or (b[1] == c[1] and b[2] < c[2]) end)
printt(a)
table.sort(a, function(b, c) return b[1]^2 + b[2]^2 < c[1]^2 + c[2]^2 end)
printt(a)

[ Lua ] [ download code ] ]

RC3's comment on コマンドライン引数の取得

コマンドライン引数の取得 (Nested Flatten)

-コマンドライン引数はargという名前のグローバルなテーブルに格納される。
-スクリプト名がインデックス0に格納される。
-最初の引数がスクリプト名の後のインデックス1に格納され、以下同様。
-フィールドnはスクリプト名の後の引数の数を持つ。
-スクリプト名の前のすべての引数(インタプリタ名やオプション)は負のインデックスに割り当てられる。

C:\>lua para.lua a b c d
[-1] = lua
[0] = para.lua
[1] = a
[2] = b
[3] = c
[4] = d
C:\>

1
2
3

for i = -1, arg.n do
    print("[" .. i .. "] = " .. arg[i])
end

[ Lua ] [ download code ] ]

ether's comment on 自然数の分割

自然数の分割 (Nested Flatten)

Lua です。

function split(n, m)
  if m == 0 then
    if n == 0 then coroutine.yield{} end
  else
    for i=n,0,-1 do
      for t in coroutine.wrap(function () split(n-i, m-1) end) do
        table.insert(t, 1, i) -- prepend
        coroutine.yield(t)
      end
    end
  end
end

function split_iter(n, m)
  return coroutine.wrap(function () split(n, m) end)
end

for i in split_iter(5, 3) do
  print(table.concat(i, ", "))
end

[ Lua ] [ download code ] ]

rubikitch's comment on 与えられた文字列でピラミッド

与えられた文字列でピラミッド (Nested Flatten)

function pyramid(str)
  len = string.len(str)
  for i=len, 1, -1 do
    io.stdout:write(string.rep(" ",i-1))
    for j=i, len, 1 do io.stdout:write(string.sub(str,j,j), " ") end
    io.stdout:write("\n")
  end
end
pyramid("abracadabra")

[ Lua ] [ download code ] ]

rubikitch's comment on 隣り合う二項の差

隣り合う二項の差 (Nested Flatten)

なまくらlua版

function print_array(ary)
  s = "[ "
  table.foreach(ary, function(k,v) s = s .. string.format("%s ",v) end)
  s = s.."]"
  print(s)
end

function diff(ary)
  ret = {}
  for i = 1, table.getn(ary)-1, 1 do
    ret[i] = ary[i+1]-ary[i]
  end
  return ret
end
print_array(diff({3, 1, 4, 1, 5, 9, 2, 6, 5}))

[ Lua ] [ download code ] ]

ether's comment on 複数行のコメントアウト

複数行のコメントアウト (Nested Flatten)

Lua5.1 では -- が1行コメントで --[[ から --]] までがブロックコメントになります。この性質を利用すると --[[ を　---[[ と書き換えるだけでコメントアウトを解除できて便利です。ブロックコメントをネストするには --[=[ ... --]=] のように任意の数の等号を挟みます。この例では B だけが表示されます（シンタクスハイライトは残念ながらブロックコメントに対応していないようですが…）。

--[[
  print("A")
--]]

---[[
  print("B")
--]]

--[===[
--[==[
--[=[
--[[
  print("C")
--]]
--]=]
--]==]
--]===]

[ Lua ] [ download code ] ]

ether's comment on 呼んだのは誰？

呼んだのは誰？ (Nested Flatten)

ちゃんとテーブルの形で情報もらえるので文字列から抽出する必要はないかと

function foo() return debug.getinfo(2).name end

function bar()
  local ret = foo()
  return ret
end

function baz()
  local ret = foo()
  return ret
end

print(bar())
print(baz())

[ Lua ] [ download code ] ]

ether's comment on ローカル変数の一覧を取得

ローカル変数の一覧を取得 (Nested Flatten)

function locals()
   local i = 1
   local t = {}
   while true do
     local k, v = debug.getlocal(2, i)
     if k == nil then break end
     t[k] = v
     i =  i + 1
   end
   return t
end

function foo()
  local x = 1
  local y = "hello"
  return locals(), nil
end

for k, v in pairs(foo()) do print(k, v) end 
--> y       hello
--> x       1

[ Lua ] [ download code ] ]

匿名's comment on ダブル完全数

ダブル完全数 (Nested Flatten)

local function sum_divisors(n)
  local r = 0
  for i = 1,math.sqrt(n) do
    if n % i == 0 then
      if i*i == n then
        r = r + i
      else
        r = r + i + n/i
      end
    end
  end
  return r
end

for i = 1,10000 do
  if sum_divisors(i) == 3*i then
    print(i)
  end
end

[ Lua ] [ download code ] ]

匿名's comment on 分数を小数に展開

分数を小数に展開 (Nested Flatten)

function decimal(a,b)
  local r,t,i,z,p = {},{},1,1
  while a >= b do
    b,z = b*10,z+1
  end
  while a ~= 0 do
    t[a],i,a = i,i+1,a*10
    table.insert(r,math.floor(a/b))
    a = a%b
    if t[a] then
      p = t[a]
      break
    end
  end
  if p then
    r[p] = "{"..r[p]
    table.insert(r,"}")
  end
  table.insert(r,z,".")
  if z == 1 then
    table.insert(r,1,"0")
  end
  return table.concat(r)
end
assert(decimal(3,8) == "0.375")
assert(decimal(3,14) == "0.2{142857}")

[ Lua ] [ download code ] ]

rubikitch's comment on n日後を返す関数を返す関数

n日後を返す関数を返す関数 (Nested Flatten)

function n_days_later(n)
  return function (time)
           return time + n*3600*24
         end
end

tm = os.time()
print(os.date("%c", tm))
print(n_days_later(3))
print(os.date("%c", n_days_later(3)(tm)))

[ Lua ] [ download code ] ]