From fafbeaf9e3c09ba7a5bea7e47d5736001f8a5aa1 Mon Sep 17 00:00:00 2001 From: HJ Date: Tue, 17 Jan 2023 12:46:04 -0500 Subject: adding old leetcode solutions --- leetcode/lc-476-number-complement.rkt | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 leetcode/lc-476-number-complement.rkt (limited to 'leetcode/lc-476-number-complement.rkt') diff --git a/leetcode/lc-476-number-complement.rkt b/leetcode/lc-476-number-complement.rkt new file mode 100644 index 0000000..724bb47 --- /dev/null +++ b/leetcode/lc-476-number-complement.rkt @@ -0,0 +1,11 @@ +#lang racket + +(define (flip-bit bit) + (cond [(char=? bit #\1) #\0] + [(char=? bit #\0) #\1])) + +(define/contract (find-complement num) + (-> exact-integer? exact-integer?) + (define num-binary-list + (string->list (number->string num 2))) + (string->number (apply ~a (map flip-bit num-binary-list)) 2)) \ No newline at end of file -- cgit v1.2.3