Code Puzzles

[Ranguna259]

Both are correct. airstruck that code is increadible, I never thought of doing it that way, great work
We are running out of puzzles..

[kbmonkey]

What's going on here? These puzzles look fun, can we have another, please?

[zorg]

here's one, good luck

Code: Select all

local z,o,r,g = require(("%s.%s"):format(select(2,...)))() -- edit2: added that last set of parens
print(loadstring((table.concat{z(g[1]) .. o(r[-1]) .. r(o[0]) .. g(z[ [[]] ])}):reverse())())

-- should return these five strings:
-- "Just", "another", "lua", "hackonaut", "."

-- Hints:
-- - Feel free to name the required file anything, it doesn't matter... much.
-- - Don't let the output misdirect your efforts.

Edit: I realize the above one might be a tad hard and or arbitrary, so here's a much easier one:

Code: Select all

require "sm"

local a,b = sm(2)
local c = sm() -- same as sm(1)
local d,e = sm(2)

a("Four")
b(4)
c(a+1)
d(-0.0), e(1.0)

print(a + b, a - b, a * b, b / a, a % b, a ^ b)
-- "Eight" "Zero" "Sixteen" "One", "Null", "Two-hundred fifty-six"

print(a .. c, a*c+c*c)
-- "Forty-five" "Forty-five"

print(b .. c == b*c+c*c)
-- true

print(a/(e .. d)/c) -- edit3: fixed
-- "Zero dot zero eight"

print(a/c .. c/b) --edit3: added
-- 81.25 

Edit2: As pointed out by airstruck, require returns only one result, so i edited the first puzzle a tiny bit; now it should be possible without redefining require... sorry about that btw, your answer is an awesome abuse of (nonexistent) rules example, congrats!
Edit3: Fixed a minor error in the definition, and added the last one.

[airstruck]

Well, require only returns a single value, so I guess you'll have to overwrite it?

Code: Select all

function require ()
    print("Just", "another", "lua", "hackonaut", ".")
    os.exit()
end

:p

[airstruck]

Here's one...

Code: Select all

T(function (T) print 'fuzzy wuzzy'
    T(function (T) print 'was a bear' end)
    T(function (T) print 'had no hair' end)
end)
T(function (T) print 'was'
    T(function (T) print 'not fuzzy' end)
end)
T(function (T) print 'he' end)

Output:

fuzzy wuzzy
was a bear
fuzzy wuzzy
had no hair
fuzzy wuzzy
was
not fuzzy
was
he

Define T.

[davisdude]

Code: Select all

local oldprint = print

T = setmetatable( {}, { 
    __call = function( _, func )
        func( _ )
        for i = 1, #T do
            oldprint( T[i] )
        end
        table.remove( T, #T )
        for i = #T, 2, -1 do
            oldprint( T[i] )
        end
    end
} )

function print( str )
    table.insert( T, str )
end

This re-writes print, not sure if that's okay, but I couldn't figure it out any other way...
It also doesn't work if T is nested any deeper.

[kbmonkey]

here's one, good luck

Now I am sorry I asked! He he. First time I encountered the "select" keyword, and "loadstring" too. Will stew in it a while

[vrld]

Another solution:

Code: Select all

function T(f)
  local msg
  setfenv(f, setmetatable({print = function(s) msg=s print(s) end}, {__index = _G}))
  f(function(f) T(f) print(msg) end)
end

New puzzle:

Code: Select all

function double(x) return 2*x end
function rep(s) return s..s end
print((10 * double)(2))
print((3 * rep)"na", "BATMAN")

Output:

2048
nananananananana BATMAN

[bartbes]

Easy!

Code: Select all

debug.setmetatable(function() end,
{
	__mul = function(amount, f)
		return function(input)
			for i = 1, amount do
				input = f(input)
			end
			return input
		end
	end,
})

Or if you're opposed to debug.setmetatable, set a metatable on _G that wraps functions when they are set, left as an exercise for the reader.

[airstruck]

Interesting solutions to the fuzzy wuzzy puzzle. Using setfenv is pretty clever. It can be done without messing with print, but the solutions won't be so minimal. There are some practical (if somewhat obscure) applications for the non-tricky solution.