1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
local curses = require "curses"
tower = {{6, 5, 4, 3, 2}, {}, {}}
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 lines(window)
local lines, cols = window:getmaxyx()
return lines
end
local function cols(window)
local lines, cols = window:getmaxyx()
return cols
end
local 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
local 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(7))
window:mvaddstr(line+1, col-6, " ")
window:attroff(curses.color_pair(7))
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(7))
window:mvaddstr(line, col, " ")
window:attroff(curses.color_pair(7))
line = line - 1
end
end
local 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
local function make_move(from, to)
local disk = pop(tower[from])
table.insert(tower[to], disk)
end
local 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
local window = curses.stdscr()
for i=1,7 do
curses.init_pair(i, 0, i)
end
while true do
render(window)
update(window)
end
|