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

Haha oops; no negative numbers in microscheme.

Browse source
This commit is contained in:
Phil Hagelberg 2020-02-21 07:55:17 -08:00
parent dcc363073b
commit a39c8eb3cd
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
menelaus.scm
View file

@ -23,8 +23,12 @@
lst lst
(member v (cdr 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) (- 0 1))) (if (= x (or (vector-ref v n) not-found))
n n
(if (= n max) (if (= n max)
#f #f
@ -93,7 +97,7 @@
(define (remove-last-down-aux key n) (define (remove-last-down-aux key n)
(if (< n 9) (if (< n 9)
(if (= key (or (vector-ref last-keys-down n) -1)) (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))) (remove-last-down-aux key (+ n 1)))
#f)) #f))