{"request":{"endpoint":"https://exercism.org/api/v2/tracks/racket/exercises/perfect-numbers/community_solutions","query":{},"options":{"initial_data":{"results":[{"uuid":"5b2a09ee1da641ecb0413419eb473fa3","snippet":"(define (classify n) (define (factors-sum sum i) (cond [(= i n) sum] [(zero? (modulo n i)) (factors-sum (+ sum i) (+ i 1))] [else (factors-sum sum (+ i 1))])) (let ([sum (factors-sum 0 1)]) (cond [(= sum n) 'perfect] [(> sum n) 'abundant] [else 'deficient]) ) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":1,"num_loc":13,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-04-17T15:55:08.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"menketechnologies"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/menketechnologies","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"d4a44cfef2614187b2aaad705b74cde3","snippet":"(define (aliquot-sum n) (define (sum n) (for/sum ([i (in-range 2 (add1 (floor (sqrt n))))] #:when (zero? (modulo n i))) (if (= (/ n i) i) i (+ i (/ n i))))) (cond [(= n 1) 0] [else (add1 (sum n))])) (define (classify n) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":2,"num_iterations":5,"num_loc":16,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2018-11-21T20:25:49.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"AitorATuin"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/AitorATuin","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"ece82189ef344c6180440e0da2213e8d","snippet":"(define (classify num) (let ([sum (sum-divisors num)]) (cond [(> sum num) 'abundant] [(< sum num) 'deficient] [else 'perfect]))) (define (sum-divisors num) (apply + (filter ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":3,"num_loc":13,"iteration_status":"tests_failed","published_iteration_head_tests_status":"exceptioned","published_at":"2019-05-06T20:58:21.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"ldfritz"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/ldfritz","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"63edeaf625dd483b9311ab788ed3a1b9","snippet":"(define (classify n) (define aliquot-sum (- (foldl + 0 (divisors n)) n)) (cond [(= aliquot-sum n) 'perfect] [(> aliquot-sum n) 'abundant] [else 'deficient])) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":8,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2019-10-11T22:33:58.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"lgwarda"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/lgwarda","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"1f1ae0546bcf484d834e82ee7ca39064","snippet":"(define (divisor-sum n) (for/sum ([i (in-range 1 (add1 (quotient n 2)))] #:when (zero? (remainder n i))) i)) (define (classify n) (let ([sumdivisors (divisor-sum n)]) (cond [(= n sumdivisors) 'perfect] [(> n sumdivisors) 'deficient] [else 'abundant]))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":11,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2019-10-01T16:44:49.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"Rekran"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/Rekran","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"a16192430bcc4c108f67370f180e3010","snippet":"(define (classify n) (let ((aliquot-sum (stream-fold + 0 (proper-divisors n)))) (cond ((< aliquot-sum n) 'deficient) ((= aliquot-sum n) 'perfect) ((> aliquot-sum n) 'abundant)))) (define (divides? denom numer) (zero? (modulo numer denom))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":4,"num_loc":26,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-09-16T18:19:20.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"guygastineau"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/guygastineau","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"f080b109261d4f20a78c24e551887eb1","snippet":"(define (divisible-by? n m) (zero? (remainder n m))) (define (aliquot-sum n) (for/sum ([m (in-range 1 n)] #:when (divisible-by? n m)) m)) (define (classify n) (let ([asum (aliquot-sum n)]) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":14,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2019-11-30T01:57:13.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"sentientmonkey"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/sentientmonkey","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"80a1beee052b452c990eec2b85eaa953","snippet":"(define (factors n) (for/list ([i (in-range 1 (+ 1 n))] #:when (zero? (modulo n i))) i)) (define (aliquot n) (for/sum ([i (take (factors n) (- (length (factors n)) 1))]) i)) (define (classify n) (cond ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":17,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2019-12-19T19:05:07.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"Thaj"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/Thaj","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"8990fb3fda844d2f96cc088c7661ac67","snippet":"(define (classify n) (define aliquot-sum (sum (drop-right (divisors n) 1))) (cond [(= n aliquot-sum) 'perfect] [(< n aliquot-sum) 'abundant] [else 'deficient])) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":4,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2020-04-23T11:02:05.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"anton0xf"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/anton0xf","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"a02c81de780d442195f000c3988c3b25","snippet":" [classify (natural-number/c . -> . nico-classification/c)])) (define (nico-classification? whatever) (let ([classifications '(perfect abundant deficient)]) (member whatever classifications))) (define (nico-proj blame) (λ (x) (if (nico-classification? x) x ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":31,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2020-06-14T09:09:36.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"circius"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/circius","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"517b264739fb42c9b3030b2436c1cd51","snippet":"(define (aliquot-sum-helper number i) (if (= i 0) 0 (if (= 0 (modulo number i)) (+ i (aliquot-sum-helper number (- i 1))) (aliquot-sum-helper number (- i 1))))) (define (aliquot-sum number) (aliquot-sum-helper number (- number 1))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":19,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-03-21T22:28:31.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"EndlezzCode"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/EndlezzCode","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"d34ac7997ef246e8b82c195e8823ffcf","snippet":"(define (classify n) (if (<= n 0) (raise (error 'invalid)) (let loop ([i 1] [sum 0]) (if (= i n) (cond [(= sum n) 'perfect] [(> sum n) 'abundant] [else 'deficient]) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":16,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-03-12T08:18:19.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"Javran"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/Javran","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"f2425127a759402eacc249d00a9afc8f","snippet":"(define (classify value) (let ([s (aliquot-sum value)]) (cond [(> s value) 'abundant] [(< s value) 'deficient] [else 'perfect]))) (define (aliquot-sum value) (for/sum ([i (in-naturals 1)] #:break (> (* i i) value) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":14,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2020-05-18T19:17:02.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"xffox"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/xffox","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"cb08beb5dfd648bf917e2416c2d542e1","snippet":"(define (list-of-factors n) (for/list ([i (inclusive-range 1 (quotient n 2))] #:when (= 0 (modulo n i))) i)) (define (aliquot-sum-via-for n) (for/sum ([i (list-of-factors n)]) i)) (define (aliquot-sum-via-apply n) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":7,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-06-05T09:49:21.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"denismaier"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/denismaier","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"1414decb47ad4a528a52d08e060af4e4","snippet":"(define (factor? num f) (equal? (modulo num f) 0)) (define (factors num) (stream-fold (lambda (acc i) (let ([other_factor (/ num i)]) (cond [(or (not(factor? num i)) (equal? i num) (not (equal? (member i acc) #f))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":26,"iteration_status":"tests_failed","published_iteration_head_tests_status":"failed","published_at":"2022-02-07T04:01:28.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"dmiller113"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/dmiller113","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"d48f588a47f047aa8e27018c7e81786a","snippet":"(define (factors number) (define (fact-iter number found remaining) (cond ((= remaining 0) found) (else (if (= (modulo number remaining) 0) (fact-iter number (cons remaining found) (- remaining 1)) (fact-iter number found (- remaining 1)))))) (fact-iter number '() (- number 1))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":21,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-01-24T09:48:25.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"kapitaali"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/kapitaali","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"b11322e0c9494ceba2765c0875faa457","snippet":"(define (aliquot-sum x) (for/fold ([sum (if (= x 1) 0 1)]) ([f (in-inclusive-range 2 (integer-sqrt x))]) (let ([f2 (/ x f)]) (if (integer? f2) (if (= f f2) (+ sum f) (+ sum f f2)) sum)))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":2,"num_loc":17,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-12-16T22:25:11.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"noelbenz"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/noelbenz","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"5b854d0eccb846ac9a612c02df5517e4","snippet":"(define (classify n) (define (out_sum n) (for/fold([sum 0]) ([i (in-range 1 n)]) (if(= 0 (remainder n i)) (+ sum i) (+ sum 0)) )) (cond[(= n (out_sum n)) 'perfect] [(< n (out_sum n)) 'abundant] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":15,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2021-11-17T12:56:28.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"hobooe"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/hobooe","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"cc61f471845e42a3b7914cda85bbaeee","snippet":"(define (classify n) (define aliquot-sum (- (apply + (divisors n)) n)) (cond [(= aliquot-sum n) 'perfect] [(< aliquot-sum n) 'deficient] [(> aliquot-sum n) 'abundant])) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2021-09-02T07:01:53.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"Andriamanitra"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/Andriamanitra","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"f454217c9a204c9497589d2ae7949b46","snippet":"(define (classify num) (define (calculate-aliquot-sum num) (define (helper num index) (if (> (* index index) num) 0 (+ (helper num (+ index 1)) (cond [(< 0 (remainder num index)) 0] [(= index (/ num index)) index] [(= index 1) index] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":29,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-03-09T05:14:17.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"shashitnak"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/shashitnak","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"1db4afbe7a7b4cb4ad664f9ee069cac0","snippet":"(define (factors n) (for/list ([i (in-range 1 n)] #:when (zero? (modulo n i))) i)) (define (classify n) (let ([s (for/sum ([i (factors n)]) i)]) (cond [(< s n) 'deficient] [(= s n) 'perfect] ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":12,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-05-04T15:32:37.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"dougfort"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/dougfort","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"c270c6c0ca644e3caf8194c2098fec4e","snippet":"(define (classify n) (let ([total (for/sum ([i (range 1 (add1 (floor (/ n 2))))] #:when (zero? (remainder n i))) i)]) (cond [(> total n) 'abundant] [(= total n) 'perfect] [else 'deficient]))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":9,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2022-07-31T16:09:38.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"blogscot"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/blogscot","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"d10103d65c1d4cbfa28603a7cb25e96d","snippet":"(define (classify n) (let ([sum (aliquot-sum n)]) (cond [(= sum n) 'perfect] [(> sum n) 'abundant] [(< sum n) 'deficient]))) (define (aliquot-sum n) (foldl + 0 (factors-excl-n n))) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":14,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"failed","published_at":"2022-07-31T00:28:43.000Z","is_out_of_date":true,"language":"scheme","author":{"handle":"erinwilkins"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/erinwilkins","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}},{"uuid":"5baab0b8cc0648d584c71d94bd104108","snippet":"(define (classify number) (cond [(perfect? number) 'perfect] [(abundant? number) 'abundant] [(deficient? number) 'deficient])) (define (perfect? number) (= (aliquot-sum number) number)) (define (abundant? number) (> (aliquot-sum number) number)) ","num_views":0,"num_stars":0,"num_comments":0,"representation_num_published_solutions":1,"num_iterations":1,"num_loc":20,"iteration_status":"no_automated_feedback","published_iteration_head_tests_status":"passed","published_at":"2023-05-26T10:40:13.000Z","is_out_of_date":false,"language":"scheme","author":{"handle":"Eisenaxt"},"exercise":{"title":"Τέλειοι αριθμοί","icon_url":"https://assets.exercism.org/exercises/perfect-numbers.svg"},"track":{"title":"Racket","icon_url":"https://assets.exercism.org/tracks/racket.svg","highlightjs_language":"scheme"},"links":{"public_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/solutions/Eisenaxt","private_iterations_url":"https://exercism.org/el/tracks/racket/exercises/perfect-numbers/iterations"}}],"meta":{"current_page":1,"total_count":153,"total_pages":7,"unscoped_total":153}}}}}

Γλώσσες προγραμματισμού

Μάθε προγραμματισμό με το Jiki

Το Ταξίδι σου

Τα Αγαπημένα σουΝέο

Προνόμια του Exercism

Βίντεο της Κοινότητας

Σειρά σύντομων εισαγωγών

Συνεντεύξεις και ιστορίες

Discord

Φόρουμ

Ξεκινώντας

Καθοδήγηση

Τεκμηρίωση

Συνεισφέροντες

ΜεταφραστέςΝέο

Κάνε δωρεά

Σχετικά με το Exercism

Ο αντίκτυπός μας

Συγχρονισμός GitHubΝέο

Insiders