Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Now member is part of microscheme.

Browse source
This commit is contained in:
Phil Hagelberg 2020-02-22 17:28:55 -08:00
parent 0f1afd3144
commit 8a6eb8bfb0
1 changed files with 9 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
menelaus.scm
View file

@ -16,23 +16,12 @@
;;;;;;;;;;;;;;;;;;; utils ;;;;;;;;;;;;;;;;;;; utils
(define (member v lst)
(if (null? lst)
#f
(if (equal? v (car lst))
lst
(member v (cdr lst)))))
;; we need a numeric value to represent not-found; microscheme only has unsigned
;; ints but this will still get us a reasonable not-found value
(define not-found (- 0 1))
(define (find-aux v x n max) (define (find-aux v x n max)
(if (= x (or (vector-ref v n) not-found)) (let ((y (vector-ref v n)))
(if (and y (= x y))
n n
(if (= n max) (and (< n max)
#f (find-aux v x (+ n 1) max)))))
(find-aux v x (+ n 1) max))))
(define (find v x) (define (find v x)
(find-aux v x 0 (- (vector-length v) 1))) (find-aux v x 0 (- (vector-length v) 1)))
@ -96,16 +85,15 @@
#f))) #f)))
(define (remove-last-down-aux key n) (define (remove-last-down-aux key n)
(if (< n 9)
(if (equal? key (vector-ref last-keys-down n)) (if (equal? key (vector-ref last-keys-down n))
(vector-set! last-keys-down n #f) (vector-set! last-keys-down n #f)
(remove-last-down-aux key (+ n 1))) (and (< n 9) (remove-last-down-aux key (+ n 1)))))
#f))
(define (add-last-down key) (add-last-down-aux key 0)) (define (add-last-down key) (add-last-down-aux key 0))
(define (remove-last-down key) (remove-last-down-aux key 0)) (define (remove-last-down key) (remove-last-down-aux key 0))
(define (remove-aux v lst checked all?) (define (remove-aux v lst checked all?)
;; also missing the cond form
(if (null? lst) (if (null? lst)
(reverse checked) (reverse checked)
(if (equal? v (car lst)) (if (equal? v (car lst))