0. #lang racket/base
1.  
2. (require syntax/parse/define)
3.  
4. (define-simple-macro (for*/max clauses body ... tail-expr)
5.   (for*/fold/derived this-syntax ([ans -inf.0])
6.     clauses
7.     body ...
8.     (max ans tail-expr)))
9.  
10. (define a (vector 4 3 1 5 2 6 2 8))
11. (for*/max ([i (in-range (vector-length a))]
12.            [j (in-range (add1 i) (vector-length a))])
13.   (- (vector-ref a i) (vector-ref a j)))

=>

4.0