The Racket repository
f7465f81f1
Also, tune the projection to get a few modest performance gains.
This program gets about 20% faster:
#lang racket
(define s (contract (stream/c exact-nonnegative-integer?)
(in-naturals) 'pos 'neg))
(time
(for ([x (in-range 1000)])
(for/fold ([s s])
([x (in-range 100)])
(stream-rest s))))
and this program gets about 15% faster:
#lang racket
(define f (contract (-> (stream/c exact-nonnegative-integer?)
any)
(λ (x) 1)
'pos 'neg))
(define l (make-list 10000 0))
(time (for ([x (in-range 1000)])
(f l) (f l) (f l) (f l) (f l)))
|
||
|---|---|---|
| pkgs | ||
| racket | ||
| .gitattributes | ||
| .gitignore | ||
| .mailmap | ||
| .travis.yml | ||
| appveyor.yml | ||
| INSTALL.txt | ||
| Makefile | ||
| README.txt | ||
This is the source code for the main Racket distribution. See "INSTALL.txt" for information on building Racket. License ------- Racket Copyright (c) 2010-2015 PLT Design Inc. Racket is distributed under the GNU Lesser General Public License (LGPL). This implies that you may link Racket into proprietary applications, provided you follow the rules stated in the LGPL. You can also modify Racket; if you distribute a modified version, you must distribute it under the terms of the LGPL, which in particular states that you must release the source code for the modified software. See racket/src/COPYING_LESSER.txt for more information.