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/html/shell/parse.mu.html

	Commit message (Collapse)	Author	Age	Files	Lines
*	.	Kartik Agaram	2021-10-09	1	-7/+7
\|
*	.	Kartik Agaram	2021-08-15	1	-56/+56
\|
*	.	Kartik K. Agaram	2021-07-16	1	-12/+12
\|
*	html: better highlighting for int registers	Kartik Agaram	2021-06-26	1	-49/+48
\|
*	.	Kartik Agaram	2021-06-26	1	-9/+9
\| \| \| \| \|	Switch html rendering to my current colorscheme with a little less blue, for night browsing.
*	.	Kartik Agaram	2021-06-24	1	-3/+3
\| \| \| \|	Switch html rendering to a white background.
*	.	Kartik Agaram	2021-06-23	1	-284/+290
\|
*	.	Kartik Agaram	2021-06-15	1	-21/+21
\|
*	.	Kartik Agaram	2021-06-05	1	-152/+167
\|
*	.	Kartik Agaram	2021-05-31	1	-253/+264
\|
*	.	Kartik Agaram	2021-05-18	1	-181/+229
\|
*	.	Kartik Agaram	2021-05-01	1	-65/+76
\|
*	.	Kartik Agaram	2021-04-22	1	-17/+17
\|
*	.	Kartik Agaram	2021-04-21	1	-145/+223
\|
*	.	Kartik Agaram	2021-04-13	1	-96/+110
\|
*	.	Kartik Agaram	2021-03-23	1	-0/+198

="p">((already-lost? position me) #f) ((already-won? position me) #t) (else (not (find-one (lambda (pos) (not (one-okay-move pos me))) (extend position (opponent me)) ))))) (define (free-squares pos) (keep number? pos)) (define (number-squares pos) (ns-help pos 1)) (define (ns-help pos num) (cond ((empty? pos) "") ((equal? (first pos) '_) (word num (ns-help (bf pos) (+ num 1)))) (else (word (first pos) (ns-help (bf pos) (+ num 1)))) )) (define (plug-in letter sq pos) (cond ((empty? pos) "") ((= sq 1) (word letter (bf pos))) (else (word (first pos) (plug-in letter (- sq 1) (bf pos)))) )) (define (find-one pred stuff) (cond ((empty? stuff) #f) ((pred (first stuff)) (first stuff)) (else (find-one pred (bf stuff))) )) (define (extend pos who) (every (lambda (sq) (plug-in who sq pos)) (free-squares pos))) (define (opponent letter) (if (equal? letter 'x) 'o 'x)) (define (already-won? pos me) (find-one (lambda (win) (match-win? pos me win)) '(yyynnnnnn nnnyyynnn nnnnnnyyy ynnynnynn nynnynnyn nnynnynny ynnnynnny nnynynynn))) (define (already-lost? pos me) (already-won? pos (opponent me))) (define (match-win? pos me win) (cond ((empty? win) #t) ((equal? (first win) 'y) (if (equal? (first pos) me) (match-win? (bf pos) me (bf win)) #f)) (else (match-win? (bf pos) me (bf win))) ))