9 lines
176 B
Racket
9 lines
176 B
Racket
#lang racket/base
|
|
|
|
(define (main)
|
|
(let ([n 42])
|
|
(printf "n = ~a, -n = ~a, two's complement = ~a\n"
|
|
n (- n) (add1 (bitwise-not n)))))
|
|
|
|
(module+ main
|
|
(main))
|