Contents

#lang racket

(provide perfect-numbers)

(define (perfect-numbers n)
  (filter perfect? (range 1 (add1 n))))

(define (perfect? n)
  (= (apply + (filter (lambda (x)
            (zero? (modulo n x))) (range 1 n))) n))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.159	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.158	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.157	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.156	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.155	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.154	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.153	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.152	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.151	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.150	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.149	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.148	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.147	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.146	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.145	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.144	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.143	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.142	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.141	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.140	tracks/racket/exercises/perfect-numbers/example.rkt