From: spike66 (spike66@attbi.com)
Date: Sun May 05 2002 - 22:29:25 MDT
Lee Corbin wrote:
>Spike writes
>
>
>>I will share
>>my program if I get a few participants. I must confess
>>however that it is a painfully simple minded routine, 13
>>lines of basic code, and can likely be vastly improved
>>upon by the abundantly talented computer jockies on this
>>forum. spike
>>
>
>Aw, don't be shy or embarrassed! On the contrary. Since
>new memes about this need to be propagated, let's start now:
>
>Your program should evince how *little* time you spent
>writing it, how inefficient it is, and how disgustingly
>hard you make the computer work to nevertheless yield an
>interesting, understandable answer in short (human) time.
>
Your philosophy matches my own. The computers should do the
work, not the humans. The embarrassment is more a function of using
Microsloth bloatware for such a task. {8-]
The following macro searches odd numbers only and keeps the
result only if it finds a damngood number or better, which is
actually fairly rare among odd numbers.
Sub Macro1()
'
c = 0
For x = 1 To 5000001 Step 2
s = 0
For n = 2 * Int(x / 6) + 11 To 1 Step -2
If x / n = Int(x / n) Then s = s + n
Next
If Abs(x - s) / x > 0.001 Then GoTo 10
c = c + 1
Cells(c, 1) = x
Cells(c, 2) = s
10 Next
End Sub
This archive was generated by hypermail 2.1.5 : Sat Nov 02 2002 - 09:13:50 MST