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.139	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.138	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.137	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.136	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.135	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.134	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.133	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.132	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.131	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.130	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.129	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.128	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.127	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.126	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.125	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.124	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.123	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.122	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.121	tracks/racket/exercises/perfect-numbers/example.rkt
trackler-2.2.1.120	tracks/racket/exercises/perfect-numbers/example.rkt