From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001 From: "H.J" Date: Wed, 9 Oct 2024 11:36:55 -0400 Subject: sorting by language --- leetcode/lc-989-add-to-array-form.rkt | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 leetcode/lc-989-add-to-array-form.rkt (limited to 'leetcode/lc-989-add-to-array-form.rkt') 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 -- cgit v1.2.3