79 lines
1.5 KiB
Lua
79 lines
1.5 KiB
Lua
local curses = require "curses"
|
|
|
|
|
|
tower = {{5, 4, 3, 2, 1}, {}, {}}
|
|
|
|
|
|
local function len(array)
|
|
local result = 0
|
|
for k in pairs(array) do
|
|
result = result+1
|
|
end
|
|
return result
|
|
end
|
|
|
|
|
|
local function pop(array)
|
|
return table.remove(array)
|
|
end
|
|
|
|
|
|
local function render_tower(screen, line, col, tower_index, tower)
|
|
screen:attron(curses.A_BOLD)
|
|
screen:mvaddch(line+2, col, string.char(96+tower_index))
|
|
screen:attroff(curses.A_BOLD)
|
|
screen:mvaddstr(line+1, col-3, "-------")
|
|
for i, n in ipairs(tower) do
|
|
screen:mvaddstr(line, col, n)
|
|
line = line - 1
|
|
end
|
|
for i=1,5-len(tower) do
|
|
screen:mvaddstr(line, col, "|")
|
|
line = line - 1
|
|
end
|
|
end
|
|
|
|
|
|
local function render(screen)
|
|
screen:clear()
|
|
local lines = curses.lines()
|
|
local cols = curses.cols()
|
|
local line = math.floor(lines/2)
|
|
local col = math.floor(cols/4)
|
|
for i,t in ipairs(tower) do
|
|
render_tower(screen, line, i*col, i, t)
|
|
end
|
|
end
|
|
|
|
|
|
local function make_move(from, to)
|
|
local disk = pop(tower[from])
|
|
table.insert(tower[to], disk)
|
|
end
|
|
|
|
|
|
local function update(screen)
|
|
screen:mvaddstr(curses.lines()-2, 5, "tower to remove top disk from? ")
|
|
local from = string.byte(curses.getch()) - 96
|
|
curses.refresh()
|
|
screen:mvaddstr(curses.lines()-1, 5, "tower to stack it on? ")
|
|
local to = string.byte(curses.getch()) - 96
|
|
curses.refresh()
|
|
make_move(from, to)
|
|
end
|
|
|
|
|
|
local function main()
|
|
local screen = curses.initscr()
|
|
|
|
while true do
|
|
render(screen)
|
|
update(screen)
|
|
end
|
|
|
|
curses.endwin()
|
|
end
|
|
|
|
|
|
main()
|