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

Add examples of each.

Browse Source
This commit is contained in:
Stevie Strickland 2008-06-16 19:02:45 -04:00
parent a43b2f5681
commit bcb205a930
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/typed-scheme/fail/dot-intro.ss Normal file
View File

@ -0,0 +1,7 @@
#lang typed-scheme
(plambda: (a ...) ([x : Number] . [y : Number ... a])
y)
(plambda: (a ...) ([x : Number] . [y : Number ... a])
(map add1 y))

9
collects/tests/typed-scheme/succeed/dot-intro.ss Normal file
View File

@ -0,0 +1,9 @@
#lang typed-scheme
(define x
(plambda: (a ...) ([x : Number] . [y : Number ... a])
(ormap zero? (map add1 y))))
(define y
(plambda: (a ...) ([x : Number] . [y : a ... a])
(ormap null? (map list y))))