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

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)))