9 lines
220 B
Racket
9 lines
220 B
Racket
|
|
#lang typed-scheme
|
|
|
|
(: add-lists ((Listof Number) (Listof Number) * -> (Listof Number)))
|
|
(define (add-lists lst . lsts)
|
|
(apply map #{+ :: (Number Number * -> Number)} lst lsts))
|
|
|
|
(add-lists '(1 2 3) '(4 5 6) '(7 8 9))
|