8 lines
130 B
Racket
8 lines
130 B
Racket
|
#lang typed/racket/base
|
||
|
|
||
|
(provide list-max)
|
||
|
|
||
|
(: list-max : (Listof Integer) -> Integer)
|
||
|
(define (list-max xs)
|
||
|
(foldr max 0 xs))
|