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.119	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.118	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.117	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.116	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.115	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.114	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.113	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.111	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.110	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.109	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.108	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.107	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.106	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.105	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.104	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.103	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.102	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.101	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.100	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.99	tracks/racket/exercises/perfect-numbers/example.rkt