Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

How I deuglified my function?

Name: Anonymous 2007-03-21 15:10 ID:4itzFHZ3

xam :: a -> a -> b

xam x y = foo (bar x) (bar y) (baz x) (baz y)

Name: Anonymous 2007-03-21 18:39 ID:jDsu417U

(define (xam . xs)

  (apply foo (append (map bar xs) (map baz xs))))

works for any number of arguments

Newer Posts