4 ms·
Here's a naive conversion to Smalltalk (tested in Pharo) going up to N=30.... | rec results | rec := [ :y :z | 108 - (815 - (1500 / z) / y) ]. res
by draegtun 8y ago
Here's a naive conversion to Smalltalk (tested in Pharo) going up to N=30....
| rec results |
rec := [ :y :z | 108 - (815 - (1500 / z) / y) ].
results := { 4. 425/100. } asOrderedCollection.
3 to: 30 do: [ :i |
results add: (rec value: (results at: i - 1) value: (results at: i - 2)).
].
results doWithIndex: [ :each :i |
Transcript show: i; tab; tab; show: each asFloat; cr.
].
Output:
1 4.0
2 4.25
3 4.470588235294118
4 4.644736842105263
5 4.770538243626063
6 4.855700712589074
7 4.910847499082793
8 4.945537404123916
9 4.966962581762701
10 4.980045701355631
11 4.987979448478392
12 4.992770288062068
13 4.995655891506634
14 4.997391268381344
15 4.998433943944817
16 4.999060071970894
17 4.999435937146839
18 4.999661524103767
19 4.9997969007134175
20 4.999878135477931
21 4.9999268795046
22 4.999956127061158
23 4.9999736760057125
24 4.999984205520272
25 4.999990523282228
26 4.99999431395856
27 4.999996588371256
28 4.9999979530213565
29 4.999998771812312
30 4.999999263087206