Anonymous user
Factors of an integer: Difference between revisions
→{{header|Racket}}
Walterpachl (talk | contribs) m (→{{header|NetRexx}}: :-() |
|||
Line 1,832:
[1] 1 2 4 8 16 32 64
</pre>
=={{header|Racket}}==
<lang Racket>
#lang racket
(require math)
(define (factors n)
(sort (for/fold ([l '(1)]) ([p (factorize n)])
(append (for*/list ([e (in-range 1 (add1 (cadr p)))] [x l])
(* x (expt (car p) e)))
l))
<))
</lang>
=={{header|REALbasic}}==
| |||