mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/subx/072slice.subx

	Commit message (Expand)	Author	Age	Files	Lines
*	Merge branch 'master' into survey	Kartik Agaram	2019-07-03	1	-2/+2
\|\
\| *	5218	Kartik Agaram	2019-05-22	1	-1/+1
\| *	5213	Kartik Agaram	2019-05-20	1	-1/+1
* \|	.	Kartik Agaram	2019-07-01	1	-0/+113
* \|	unsigned comparison for addresses in more places	Kartik Agaram	2019-07-01	1	-2/+2
* \|	.	Kartik Agaram	2019-06-12	1	-7/+0
\|/
*	Merge branch 'master' into dquotes-1	Kartik Agaram	2019-05-10	1	-2/+14
\|\
\| *	5151 - use mmap everywhere we need a heap	Kartik Agaram	2019-05-10	1	-2/+14
* \|	standardize function names	Kartik Agaram	2019-05-02	1	-12/+12
\|/
*	5090	Kartik Agaram	2019-04-13	1	-10/+2
*	5060	Kartik Agaram	2019-04-06	1	-3/+51
*	5059	Kartik Agaram	2019-04-05	1	-1/+1
*	5056	Kartik Agaram	2019-04-05	1	-2/+144
*	5053	Kartik Agaram	2019-04-03	1	-113/+0
*	5024	Kartik Agaram	2019-03-27	1	-11/+11
*	5011	Kartik Agaram	2019-03-20	1	-2/+2
*	5009	Kartik Agaram	2019-03-20	1	-1/+1
*	4999	Kartik Agaram	2019-03-10	1	-1/+3
*	4996 - back on pack.subx	Kartik Agaram	2019-03-08	1	-0/+2
*	4981 - no, go back to 3 phases	Kartik Agaram	2019-02-18	1	-6/+5
*	4968	Kartik Agaram	2019-02-14	1	-0/+275
*	4966	Kartik Agaram	2019-02-14	1	-5/+5
*	4961	Kartik Agaram	2019-02-14	1	-11/+29
*	4955	Kartik Agaram	2019-02-10	1	-0/+7
*	4954	Kartik Agaram	2019-02-10	1	-0/+102
*	4951	Kartik Agaram	2019-02-03	1	-7/+5
*	4950	Kartik Agaram	2019-02-03	1	-0/+520

"mi">1 end end debug.sethook(foo, "c") window = curses.initscr() tower = {{6, 5, 4, 3, 2}, {}, {}} function len(array) local result = 0 for k in pairs(array) do result = result+1 end return result end function pop(array) return table.remove(array) end function lines(window) local lines, cols = window:getmaxyx() return lines end function cols(window) local lines, cols = window:getmaxyx() return cols end 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 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 window:mvaddstr(30, 0, "profile: ") for k,v in pairs(count) do window:addstr(k) window:addstr(": ") window:addstr(v) window:addstr("; ") end end 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 function make_move(from, to) local disk = pop(tower[from]) table.insert(tower[to], disk) end function update(window) window:mvaddstr(lines(window)-2, 5, "tower to remove top disk from? ") local from = string.byte(curses.getch()) - 96 window:mvaddstr(lines(window)-1, 5, "tower to stack it on? ") local to = string.byte(curses.getch()) - 96 make_move(from, to) end function main() curses.start_color() curses.use_default_colors() for i=1,7 do curses.init_pair(i, 0, i) end while true do render(window) update(window) end curses.endwin() end main()