marketplace-2014/list-utils.rkt

#lang racket/base

(provide list-max)

;; list-max : (Listof Integer) -> Integer
(define (list-max xs)
  (foldr max 0 xs))
First pass at converting to untyped 2014-08-06 19:16:50 +00:00			`#lang racket/base`
Initial commit 2013-03-29 03:00:29 +00:00
			`(provide list-max)`

First pass at converting to untyped 2014-08-06 19:16:50 +00:00			`;; list-max : (Listof Integer) -> Integer`
Initial commit 2013-03-29 03:00:29 +00:00			`(define (list-max xs)`
			`(foldr max 0 xs))`