Attractive numbers: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
Not a robot (talk | contribs) (Add ABC) |
||
Line 171: | Line 171: | ||
<pre>4 6 8 9 10 12 14 15 18 20 21 22 25 26 27 28 30 32 33 34 35 38 39 42 44 45 46 48 49 50 51 52 55 57 58 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 102 105 106 108 110 111 112 114 115 116 117 118 119 120</pre> |
<pre>4 6 8 9 10 12 14 15 18 20 21 22 25 26 27 28 30 32 33 34 35 38 39 42 44 45 46 48 49 50 51 52 55 57 58 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 102 105 106 108 110 111 112 114 115 116 117 118 119 120</pre> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="abc">HOW TO RETURN factors n: |
|||
PUT {} IN factors |
|||
PUT 2 IN factor |
|||
WHILE n >= factor: |
|||
SELECT: |
|||
n mod factor = 0: |
|||
INSERT factor IN factors |
|||
PUT n/factor IN n |
|||
ELSE: |
|||
PUT factor+1 IN factor |
|||
RETURN factors |
|||
HOW TO REPORT attractive n: |
|||
REPORT 1 = #factors #factors n |
|||
PUT 0 IN col |
|||
FOR i IN {1..120}: |
|||
IF attractive i: |
|||
WRITE i>>5 |
|||
PUT col+1 IN col |
|||
IF col mod 10=0: WRITE /</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 4 6 8 9 10 12 14 15 18 20 |
|||
21 22 25 26 27 28 30 32 33 34 |
|||
35 38 39 42 44 45 46 48 49 50 |
|||
51 52 55 57 58 62 63 65 66 68 |
|||
69 70 72 74 75 76 77 78 80 82 |
|||
85 86 87 91 92 93 94 95 98 99 |
|||
102 105 106 108 110 111 112 114 115 116 |
|||
117 118 119 120</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |