Count in factors: Difference between revisions

Racket
(added Liberty BASIC)
(Racket)
Line 1,431:
Number of primes gathered up to 5000 is 669
CacheInfo(hits=3935, misses=7930, maxsize=2000, currsize=2000)</pre>
 
=={{header|Racket}}==
<lang racket>
#lang racket
(require math)
 
(define (~ f)
(match f
[(list p 1) (~a p)]
[(list p n) (~a p "^" n)]))
 
(define (factors fs)
(add-between
(for/list ([f fs]) (~ f)) " * "))
 
(for ([x (in-range 2 20)])
(display (~a x " = "))
(map display (factors (factorize x)))
(newline))
</lang>
Output:
<pre>
2 = 2
3 = 3
4 = 2^2
5 = 5
6 = 2 * 3
7 = 7
8 = 2^3
9 = 3^2
10 = 2 * 5
11 = 11
12 = 2^2 * 3
13 = 13
14 = 2 * 7
15 = 3 * 5
16 = 2^4
17 = 17
18 = 2 * 3^2
19 = 19
</pre>
 
 
=={{header|REXX}}==
Anonymous user