projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lambdakey-v1.0: shrink scheme code to fit the ROM
[fw/altos]
/
src
/
lambdakey-v1.0
/
ao_lambdakey_const.scheme
diff --git
a/src/lambdakey-v1.0/ao_lambdakey_const.scheme
b/src/lambdakey-v1.0/ao_lambdakey_const.scheme
index d0c0e57895d54c883ddbd82f8507bee22b7b5076..503732723e7088880858e80a8a1956a1af98f423 100644
(file)
--- a/
src/lambdakey-v1.0/ao_lambdakey_const.scheme
+++ b/
src/lambdakey-v1.0/ao_lambdakey_const.scheme
@@
-100,8
+100,6
@@
(define (cdar l) (cdr (car l)))
(define (cdar l) (cdr (car l)))
-(define (caddr l) (car (cdr (cdr l))))
-
; (if <condition> <if-true>)
; (if <condition> <if-true> <if-false)
; (if <condition> <if-true>)
; (if <condition> <if-true> <if-false)
@@
-192,23
+190,14
@@
(define (list-tail a b)
(if (zero? b)
a
(define (list-tail a b)
(if (zero? b)
a
-
(list-tail (cdr a (- b 1)
))
- )
+
(list-tail (cdr a) (- b 1
))
+
)
)
(define (list-ref a b)
(car (list-tail a b))
)
)
(define (list-ref a b)
(car (list-tail a b))
)
-(define (list-tail a b)
- (if (zero? b)
- a
- (list-tail (cdr a) (- b 1))))
-
-(list-tail '(1 2 3) 2)
-
-(define (list-ref a b) (car (list-tail a b)))
-
(list-ref '(1 2 3) 2)
(list-ref '(1 2 3) 2)
@@
-346,9
+335,6
@@
(define string (lambda a (list->string a)))
(define string (lambda a (list->string a)))
-(display "apply\n")
-(apply cons '(a b))
-
(define map
(lambda (a . b)
(define (args b)
(define map
(lambda (a . b)
(define (args b)
@@
-378,12
+364,6
@@
(map cadr '((a b) (d e) (g h)))
(map cadr '((a b) (d e) (g h)))
-(define for-each (lambda (a . b)
- (apply map a b)
- #t))
-
-(for-each display '("hello" " " "world" "\n"))
-
(define (newline) (write-char #\newline))
(newline)
(define (newline) (write-char #\newline))
(newline)