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

Updated some of the typed benchmarks.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-05-11 13:22:35 -04:00 committed by Vincent St-Amour
parent e90e37ec62
commit fb09e9da23
2 changed files with 186 additions and 184 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/racket/benchmarks/common/nqueens-typed.rkt
View File

@ -1,5 +1,6 @@
;;; NQUEENS -- Compute number of solutions to 8-queens problem. ;;; NQUEENS -- Compute number of solutions to 8-queens problem.
;; 2006/08 -- renamed `try' to `try-it' to avoid Bigloo collision (mflatt) ;; 2006/08 -- renamed `try' to `try-it' to avoid Bigloo collision (mflatt)
;; 2010/04 -- got rid of the one-armed id (stamourv)
(module nqueens-typed typed/scheme (module nqueens-typed typed/scheme

5
collects/tests/racket/benchmarks/common/paraffins-typed.rkt
View File

@ -1,6 +1,8 @@
;;; PARAFFINS -- Compute how many paraffins exist with N carbon atoms. ;;; PARAFFINS -- Compute how many paraffins exist with N carbon atoms.
(module paraffins-typed typed/scheme #lang typed/scheme/base
(require/typed scheme/base (collect-garbage ( -> Void)))
(define-type Radical (Rec Radical (U 'C 'H 'BCP 'CCP (Vectorof Radical)))) (define-type Radical (Rec Radical (U 'C 'H 'BCP 'CCP (Vectorof Radical))))
@ -194,4 +196,3 @@
v v
(loop (- n 1) (nb (if input 17 0))))))) (loop (- n 1) (nb (if input 17 0)))))))
)