Advertisement
Guest User

Untitled

a guest
Nov 6th, 2018
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.52 KB | None | 0 0
  1. (define (filter-accum p? op nv a b term next)
  2.   (cond [(> a b) nv]
  3.         [(p? a) (op (term a)
  4.                     (filter-accum p? op nv (next a)
  5.                                   b term next))]
  6.         [else (filter-accum p? op nv (next a)
  7.                             b term next)]))
  8.  
  9. (define (meetTwice? f g a b)
  10.   (if (> (filter-accum (lambda (x) (= (f x) (g x)))
  11.                        + 0
  12.                        a b
  13.                        (lambda (x) 1)
  14.                        (lambda (x) (+ 1 x))) 1) #t #f))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement