PasteRack.org
Paste # 40455
2024-12-01 14:59:49

Fork as a new paste.

Paste viewed 277 times.


Embed:

leetcode

  1. #lang racket
  2. (define/contract (check-if-exist arr)
  3.   (-> (listof exact-integer?) boolean?)
  4.   (define found #f)
  5.   (let* ([n (length arr)])
  6.     (for ([i (in-range n)])
  7.       (for ([j (in-range n)])
  8.         (if (and (not (= i j)) (= (list-ref arr i) (* 2 (list-ref arr j))))
  9.             (set! found #t)
  10.             #f)))
  11.   found))  

=>