suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added optimization for first, second and co when possible.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-10-08 16:32:10 -04:00
parent 21d94d7eb5
commit 2c4d6fbb01
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/typed-scheme/optimizer/pair.rkt
View File

@ -110,7 +110,17 @@
(cddaar #'cdr #'cdr #'car #'car)
(cddadr #'cdr #'cdr #'car #'cdr)
(cdddar #'cdr #'cdr #'cdr #'car)
(cddddr #'cdr #'cdr #'cdr #'cdr))
(cddddr #'cdr #'cdr #'cdr #'cdr)
(first #'car)
(second #'car #'cdr)
(third #'car #'cdr #'cdr)
(fourth #'car #'cdr #'cdr #'cdr)
(fifth #'car #'cdr #'cdr #'cdr #'cdr)
(sixth #'car #'cdr #'cdr #'cdr #'cdr #'cdr)
(seventh #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(eighth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(ninth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr)
(tenth #'car #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr #'cdr))
(define-syntax-class pair-derived-opt-expr
#:commit