Count in factors: Difference between revisions
Content added Content deleted
(added Liberty BASIC) |
(Racket) |
||
Line 1,431: | Line 1,431: | ||
Number of primes gathered up to 5000 is 669 |
Number of primes gathered up to 5000 is 669 |
||
CacheInfo(hits=3935, misses=7930, maxsize=2000, currsize=2000)</pre> |
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}}== |
=={{header|REXX}}== |