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

Let's also try out the abstracted version of this function.

Browse Source
This commit is contained in:
Stevie Strickland 2008-06-21 21:09:03 -04:00
parent 48961eb551
commit e4a0dc82b3
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/typed-scheme/succeed/unholy-terror.ss
View File

@ -1,6 +1,5 @@
#lang typed-scheme #lang typed-scheme
(apply (plambda: (a ...) [ys : (a ... a -> Number) *] (apply (plambda: (a ...) [ys : (a ... a -> Number) *]
(lambda: [zs : a ... a] (lambda: [zs : a ... a]
(map (lambda: ([y : (a ... a -> Number)]) (map (lambda: ([y : (a ... a -> Number)])
@ -55,4 +54,12 @@
(map (lambda: ([y : (a ... a -> Number)]) (map (lambda: ([y : (a ... a -> Number)])
(apply y zs)) (apply y zs))
ys))) ys)))
+ - * /) + - * /)
(: map-with-funcs (All (b a ...) ((a ... a -> b) * -> (a ... a -> (Listof b)))))
(define (map-with-funcs . fs)
(lambda as
(map (lambda: ([f : (a ... a -> b)])
(apply f as))
fs)))
(map-with-funcs + - * /)