#lang racket/base

(provide list-max)

;; list-max : (Listof Integer) -> Integer
(define (list-max xs)
  (foldr max 0 xs))