PasteRack.org
Paste # 94496
2018-05-10 12:19:00

Fork as a new paste.

Paste viewed 343 times.


Embed:

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

=>

--------------------

FAILURE

name:       check-true

location:   eval:3:0

params:     (#f)

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

Check failure

--------------------