Racketでhackerrankの問題を解いてみる（IO入力） #Racket

HakcerrankでRacketが使えることに気がついたのでプログラミングの練習がてら何問かといてみた。
問題を解くこと自体はできるけどIO周りがすごく難しかったのでメモ。
もっと良いやり方があればアドバイスくださるとうれしいです。

固定個のデータ(例は2個）

改行でもスペースでもOK。

input.rkt

(define (solve a b)
  (+ a b))

(let ([a (read)]
      [b (read)])
  (printf "~a~%" (solve a b)))

一行取ってリストにする

input.rkt

(define (sum xs)
  (if (empty? xs)
      0
      (+ (car xs) (sum (cdr xs)))))

(let ([xs (map string->number (string-split (read-line)))])
  (printf "~a~%" (sum xs)))