PasteRack.org
Paste # 72630
2018-04-14 19:23:37

Fork as a new paste.

Paste viewed 722 times.


Embed:

  1. #lang racket
  2.  
  3. (define (dominate f g m)
  4.   (define (dom1 k)
  5.     (cond ((> (f k)(g k))k)
  6.           ((> k m)m)
  7.           (else (dom1 (+ k 1)))))
  8.   (dom1 4))

=>