4 lines
116 B
Racket
4 lines
116 B
Racket
#lang racket
|
|
(require math)
|
|
(define (factors n)
|
|
(append-map (λ (x) (make-list (cadr x) (car x))) (factorize n)))
|