むぅ・・・
みくしぃっぽいってうわさの OpenPNE に手を入れるってことでちょっと見てみたけど・・・
modules ってでぃれくとりで機能ごとに分けてあるはずなのに１でぃれくとりに１００個以上のふぁいるが集中してるの見たら
『あんまり深入りしたくない』っていうのが第一印象かにゃぁ？（´ω｀；【みかん
とれ〜にんぐの内容解説のとこもなんだか不要な情報がいっぱいで読みにくいし・・・
めんど〜だからけっきょくそ〜す追いかけちゃったにう（つｘ；【みかん
そんなことはおいといて☆
まだまだくりあ済みのすとっくがあるから今日も Lua のお勉強ご〜ご〜にう☆ヾ（・ｘ・。【みかん



倍数になる１３進数
014-multiple.lua

function multiple(n,m,c)
    local ret = {};
    local c = tonumber(c);
    local i = tonumber(10,m);
    
    while true do
        if math.mod(tonumber(i,n),tonumber(i,m)) == 0 then
            table.insert(ret,i);
            if table.getn(ret) >= c then
                return ret;
            end
        end
        i = i + 1;
    end
end

require([[mylib]]);

PrintTable(multiple(arg[1],arg[2],arg[3]));

こんなかんじで，ｎ進数で見たときにｍ進数の倍数になるのをｃ個見つけるかんじで引数を指定すると

>lua5.1.exe 014-multiple.lua 13 10 1
[1557]

>lua5.1.exe 014-multiple.lua 16 10 2
[1038,1040]

>lua5.1.exe 014-multiple.lua 32 16 4
[20,30,40,50]

・・・って変換で手抜きしたのもあってこれだと１０以下の指数指定できにゃいね（´・ω・｀；【みかん

だぶる完全数
025-CompleteNumber.lua

function CompleteNumber(n,m)
    local ret = {};
    local total = {};
    
    for i = 1,n,1 do
        total[i] = 1;
    end
    
    for i = 2,n,1 do
        for j = i,n,i do
            total[j] = total[j] + i;
        end
        
        if total[i] == i * m then
            table.insert(ret,i);
        end
    end
    
    return ret;
end

require([[mylib]]);
PrintTable(CompleteNumber(arg[1],arg[2]));

今度のはｎまでのｍ倍完全数なかんじで引数を指定すると

>lua5.1.exe 025-CompleteNumber.lua 10000 3
[120,672]

>lua5.1.exe 025-CompleteNumber.lua 10000 2
[6,28,496,8128]

>lua5.1.exe 025-CompleteNumber.lua 100000 4
[30240,32760]

ふみゅ・・・
完全数ってだけあってあんまりないのかにゃぁ？（・ｘ・；【みかん
なんとなくで描いたのもあってもうちょっと計算量減らせそうな気もするけど・・・
とりあえずそれっぽい値が出てるから今回はこんなとこで☆