diff options
Diffstat (limited to 'leetcode/lc-989-add-to-array-form.rkt')
| -rw-r--r-- | leetcode/lc-989-add-to-array-form.rkt | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/leetcode/lc-989-add-to-array-form.rkt b/leetcode/lc-989-add-to-array-form.rkt deleted file mode 100644 index c88bdc9..0000000 --- a/leetcode/lc-989-add-to-array-form.rkt +++ /dev/null @@ -1,24 +0,0 @@ -#lang racket -(define/contract (add-to-array-form num k) - (-> (listof exact-integer?) exact-integer? (listof exact-integer?)) - (define rev-num (reverse num)) - (define raw-array-form - (cond [(= k 0) num] - [else - (for/fold ([sum-list '()] - [addend k] - [carry 0] - #:result sum-list) - ([place (append rev-num - (make-list (add1 (order-of-magnitude k)) 0))]) - (let* ([place-sum (+ place carry (modulo addend 10))] - [to-carry (quotient place-sum 10)] - [new-place (modulo place-sum 10)]) - (values (cons new-place sum-list) - (quotient addend 10) - to-carry)))])) - (match-define-values - (result _) (drop-common-prefix raw-array-form - (make-list (length raw-array-form) 0))) - (cond [(empty? result) '(0)] - [else result]))
\ No newline at end of file |