from-R-to-racket.rkt

#!/usr/bin/env racket
#lang racket/base
(require racket/vector)


;; Capture the command line args sent to this script
(define args
  (current-command-line-arguments))


;; Non-trivial function to apply to vector goes here
(define (f x) (sqrt x))


;; Convert commandline arguments into numeric format
(define xs
  (vector-map string->number args))


;; Map the function across the vector
(define ys
  (vector-map f xs))


;; Print the results
(for ([y (in-vector ys)]) (displayln y))