PasteRack.org
Paste # 32895
2018-05-10 12:18:34

Fork as a new paste.

Paste viewed 269 times.


Embed:

  1. #lang racket
  2. (require rackunit)
  3.  
  4. (define N (* (expt 10 4567) 1202 1/1000))
  5. (check-= N (* (quotient N (expt 2 15160)) (expt 2 15160)))

=>

eval:3:0: check-=: bad syntax

  in: (check-= N (* (quotient N (expt 2 15160)) (expt 2

15160)))