Code Puzzles

[davisdude]

It can be done without messing with print, but the solutions won't be so minimal.

I'm interested in seeing how it's done without redefining print.

[vrld]

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.

I'm interested in seeing how it's done without redefining print.

Here is one:

Code: Select all

function T(f)
    f(function(g) g(T) f(function()end) end)
end

Edit: A puzzle!

Code: Select all

s{
function(w)
	w(6)
	print("not")
end,
function(w)
	for i = 1,4 do
		print("fuzzy")
		w(2)
	end
end,
function(w)
	for i = 1,3 do
		print("wuzzy")
		w(2)
	end
end,
function(w)
	w(1)
	print("was")
	w(2)
	for i = 1,2 do
		w(2)
		print("was")
	end
end,
function(w)
	w(1)
	print("a bear")
	w(2)
	print("had no hair")
	w(4)
	print("he")
end
}

Output:

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

[davisdude]

I'm interested in seeing how it's done without redefining print.

Here is one:

Code: Select all

function T(f)
    f(function(g) g(T) f(function()end) end)
end

Although this doesn't work if it's nested any more than two levels.
(When I say "work," I mean that it doesn't repeat the printed statement above then below, which is how I expect it to work, at least).

[vrld]

Although this doesn't work if it's nested any more than two levels.
(When I say "work," I mean that it doesn't repeat the printed statement above then below, which is how I expect it to work, at least).

It solves the puzzle ...

Here is a solution that allows nesting:

Code: Select all

function T(f)
	local function t(g)
		T(g)
		f(function() end)
	end
	f(t)
end

[airstruck]

Now that looks like a really nice solution.

Might be time to rewrite knife.test, thanks