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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
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(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]==],
},
{
__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()
for i=1,7 do
curses.init_pair(i, 0, i)
end
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]==],
},
}
|