aboutsummaryrefslogtreecommitdiff
path: root/leetcode/lc-504-base7.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'leetcode/lc-504-base7.rkt')
-rw-r--r--leetcode/lc-504-base7.rkt16
1 files changed, 0 insertions, 16 deletions
diff --git a/leetcode/lc-504-base7.rkt b/leetcode/lc-504-base7.rkt
deleted file mode 100644
index 3e75052..0000000
--- a/leetcode/lc-504-base7.rkt
+++ /dev/null
@@ -1,16 +0,0 @@
-#lang racket
-
-(define/contract (convert-to-base7 num)
- (-> exact-integer? string?)
- (define (max-base-power n base [pow 1])
- (cond [(n . = . (expt base pow)) pow]
- [(n . < . (expt base pow)) (sub1 pow)]
- [else (max-base-power n base (add1 pow))]))
- (define (add-next-digit n pow acc)
- (cond [(= pow 0) (string-append acc (number->string n))]
- [else (add-next-digit (remainder n (expt 7 pow))
- (sub1 pow)
- (string-append acc
- (number->string (quotient n (expt 7 pow)))))]))
- (string-append (if (negative? num) "-" "")
- (add-next-digit (abs num) (max-base-power (abs num) 7) ""))) \ No newline at end of file