145 lines
3.0 KiB
Lua
145 lines
3.0 KiB
Lua
teliva_program = {
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
render = [==[
|
|
function render(window)
|
|
window:clear()
|
|
local lines, cols = window:getmaxyx()
|
|
local line = math.floor(lines/2)
|
|
local col = math.floor(cols/4)
|
|
for i,t in ipairs(tower) do
|
|
render_tower(window, line, i*col, i, t)
|
|
end
|
|
curses.refresh()
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
lines = [==[
|
|
function lines(window)
|
|
local lines, cols = window:getmaxyx()
|
|
return lines
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
pop = [==[
|
|
function pop(array)
|
|
return table.remove(array)
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
window = [==[
|
|
window = curses.stdscr()]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
render_tower = [==[
|
|
function render_tower(window, line, col, tower_index, tower)
|
|
window:attron(curses.A_BOLD)
|
|
window:mvaddch(line+2, col, string.char(96+tower_index))
|
|
window:attroff(curses.A_BOLD)
|
|
window:attron(curses.color_pair(15))
|
|
window:mvaddstr(line+1, col-6, " ")
|
|
window:attroff(curses.color_pair(15))
|
|
for i, n in ipairs(tower) do
|
|
render_disk(window, line, col, n)
|
|
line = line - 1
|
|
end
|
|
for i=1,5-len(tower)+1 do
|
|
window:attron(curses.color_pair(15))
|
|
window:mvaddstr(line, col, " ")
|
|
window:attroff(curses.color_pair(15))
|
|
line = line - 1
|
|
end
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
tower = [==[
|
|
tower = {{6, 5, 4, 3, 2}, {}, {}}]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
render_disk = [==[
|
|
function render_disk(window, line, col, size)
|
|
col = col-size+1
|
|
for i=1,size do
|
|
window:attron(curses.color_pair(size))
|
|
window:mvaddstr(line, col, " ")
|
|
window:attroff(curses.color_pair(size))
|
|
col = col+2
|
|
end
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
main = [==[
|
|
function main()
|
|
curses.assume_default_colors(250, 139)
|
|
for i=1,7 do
|
|
curses.init_pair(i, 0, i)
|
|
end
|
|
curses.init_pair(15, 0, 250) -- tower frames
|
|
curses.init_pair(255, 15, 1) -- reserved for Teliva error messages
|
|
|
|
while true do
|
|
render(window)
|
|
update(window)
|
|
end
|
|
end
|
|
]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
len = [==[
|
|
function len(array)
|
|
local result = 0
|
|
for k in pairs(array) do
|
|
result = result+1
|
|
end
|
|
return result
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
update = [==[
|
|
function update(window)
|
|
window:mvaddstr(lines(window)-2, 5, "tower to remove top disk from? ")
|
|
local from = curses.getch() - 96
|
|
window:mvaddstr(lines(window)-1, 5, "tower to stack it on? ")
|
|
local to = curses.getch() - 96
|
|
make_move(from, to)
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
make_move = [==[
|
|
function make_move(from, to)
|
|
local disk = pop(tower[from])
|
|
table.insert(tower[to], disk)
|
|
end]==],
|
|
},
|
|
{
|
|
__teliva_timestamp = [==[
|
|
original]==],
|
|
cols = [==[
|
|
function cols(window)
|
|
local lines, cols = window:getmaxyx()
|
|
return cols
|
|
end]==],
|
|
},
|
|
}
|