PasteRack.org
Paste # 82329
2014-10-23 12:08:45

Fork as a new paste.

Paste viewed 132 times.


Embed:

  1. #lang racket
  2.  
  3. (define (f-max f g)
  4.   (lambda x (apply myfmax f g x)))
  5.  
  6. (define (myfmax f g x . y)
  7.   (define (fgmax x)
  8.     (max (f x) (g x)))
  9.   (let rec ([m (fgmax x)]
  10.             [ls y])
  11.     (if (empty? ls)
  12.         m
  13.         (let ([x (car ls)])
  14.           (rec (max m (fgmax x)) (cdr ls))))))

=>