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

Add examples of each.

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

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))))