RosettaCodeData/Task/Apply-a-callback-to-an-array/Scheme/apply-a-callback-to-an-array-1.ss

4 lines
82 B
Scheme
Raw Permalink Normal View History

2013-04-10 14:58:50 -07:00
(define (square n) (* n n))
(define x #(1 2 3 4 5))
(map square (vector->list x))