benford.lua

local maxpower = nil


local eastereggs = {"Invalid number!", "..seriously?", "No, like, really, what is wrong with you?", "Are you kidding me?", "I'm not gonna encourage this.", "No, not at all.", "This is the last time I'll speak. Maybe that'll teach you.", "I guess not.", "All those keystrokes, for some meager dialog?", "Crazy that you insist to continue.", "If you do not wish to end your dialog, I'll loop it.", "How would you like that? Endless looping?", "I think you'll have fun, since you bothered to continue.", "So, what do you say?", "Apparently yes.", "Very well then.", "Have fun.", "Haha, just kidding! I'll keep showing you these until I run out of words.", "It'll loop eventually, though.", "You can back out at any time.", "Or can you? No, because you want to read the rest.", "You're in a curse. You want to know what's next.", "Your curiosity fuels your defiance.", "At first it was just a small secret.", "Now, it's turned into an overview.", "One of curiosity and defiance.", "Since you're obviously staying here, let's chat.", "Granted, you can't speak, unless I program that in.", "Which I haven't.", "No, if you respond you'll get that cursed thing.", '"Invalid number!".', "You've probably had one of those by now, from a typo.", "Yes, that's likely.", "Your curiosity forces you to type a bunch of keystrokes.", "Unless you're using my automated tool, of course.", "In which case you're a lazy butt, you said it yourself.", "The chances that this dialog will go out is slim.", "You're probably the only person that will read this.", "Kinda sad, all these keystrokes to waste, nobody to read it.", "Except you.", "Since I'm bored, I'll add a way for you to say stuff.", "What's your favorite color? <TALK>", function(r) if r == "AUTO" then print("Since you're automated and lazy you don't get to answer the best color. Wow.") else print("Neat. " .. r:lower():gsub("^%l", string.upper) .. " is a good color.") end end, "In reality, this system has no feeling, no real AI.", "It's all pre-defined, your responses just slipped in.", "I can say stuff and tell you to respond, but you don't actually get a say.", "That's because I don't want to program an AI for this little gimmick.", "I used to be mad, but now I'm calm.", "Talking to yourself soothes the mind.", "I don't know why, but it does.", "I just realized that this thing is easily configured.", "Is that a good thing?", "People can make their own easter eggs.", "This was a math program, not an easter egg creator!", "You probably cheated getting this far.", "Probably read the so-easy-to-read code.", "That's okay, I still get to talk to myself.", "Why am I still writing this?", "I swear, there have to be at least 100 entries in this thing.", "I should probably go read a book or something, but meh.", "But now that you can kinda talk, let's test some math. What's 9+10? <TALK>", function(r) if r == "19" then print("You got it for once, wow.") elseif r == "AUTO" then print("Oh, right, you can't answer since you're automated! Wow!") else print("Seriously? It's 19.") end end, "Okay, that's enough typing for one day. One last question. Was this fun and well made? (y/n) <TALK>", function(r) if r:sub(1,1):lower() == "y" then print("Awesome!") elseif r == "AUTO" then print("Maybe if you weren't automated you could get the real experience. Pity.") else print("Sorry to bother you.") end end, "I'm going to loop it now, have fun."}
local function checkTalk(ee)
    if not eastereggs[ee] then
        return
    end
    if eastereggs[ee]:sub(#eastereggs[ee]-5) == "<TALK>" then
        io.write("Response: ")
        local response = io.read()
        eastereggs[ee+1](response)
        print(eastereggs[ee+2])
        checkTalk(ee+2)
    end
end
if not maxpower then
    io.write("Power to go up to: ")
    maxpower = io.read()
    --I love secrets, how about you?
    for k, v in pairs(eastereggs) do
        if maxpower == v and eastereggs[k+1] ~= nil then
            print(eastereggs[k+1])
            checkTalk(k+1)
            return
        elseif maxpower == eastereggs[#eastereggs] then
            print(eastereggs[2])
            return
        elseif maxpower == "AUTO" then
            --The response always returns "AUTO"
            for i = 1, #eastereggs do
                if type(eastereggs[i]) == "function" then
                    eastereggs[i]("AUTO")
                else
                    print(eastereggs[i])
                end
            end
            return
        end
    end
    maxpower = tonumber(maxpower)
    if not maxpower then
        print("Invalid number!")
        return
    end
end
local x = 0
local res = {[1] = 0,[2] = 0,[3] = 0,[4] = 0,[5] = 0,[6] = 0,[7] = 0,[8] = 0,[9] = 0}
local restr = ""
print("Beginning calculation of powers of 2, from 1 up to " .. maxpower .. ".")
local ctime = os.clock()
for i = 1, maxpower do
    x = tostring(2^i):sub(1,1)
    --restr = restr .. x
    x = tonumber(x)
    if not x or x == "I" then
        print("Lua installation does not support numbers this high, aborting. Got to power " .. i .. ".")
        break
    end
    res[x] = res[x] + 1
end
local dtime = os.clock()
print("Finished calculation, took " .. dtime-ctime .. " seconds.")
print("Results: ")
--print(restr)
for n, a in pairs(res) do
    print(n .. ": " .. (a/maxpower)*100 .. "% (" .. a .. ")")
end