Concatenation Coincidence

[jack]

reference https://projecteuler.net/problem=751

Code: QB64: [Select]

1. $NoPrefix
2. $Console:Only
3. Dest Console
4.  
5. Option Explicit
6. Dim As Float b
7. Dim As Integer64 a
8. Dim As Long i, j
9. Dim As String s, s1, s2
10.  
11. s = "2."
12. b = Val(s)
13. For i = 1 To 14 Step 2
14.     For j = 1 To i + 2
15.         a = Fix(b)
16.         'Print a
17.         b = Fix(b) * (b - Fix(b) + 1)
18.         s1 = s2
19.         s2 = Str$(a)
20.     Next
21.     s = s + Trim$(s1) + Trim$(s2)
22.     b = Val(s)
23. Next
24. Print s; " to "; Len(s) - 2; " places"
25. b = Val(s)
26. For i = 1 To 15
27.     a = Fix(b)
28.     Print a; " ";
29.     b = Fix(b) * (b - Fix(b) + 1)
30. Next
31. Print
32.  

output

Code: [Select]

2.223561019313554106173177195 to  27  places
 2   2   2   3   5   6   10   19   31   35   54   106   173   177   195


[bplus]

Hi jack,

If I plug in s = "2.95693889137788"
Shouldn't I get the same result as the reference link shows ie Fibonacci

[jack]

hi bplus
on bottom of the page it states the problem to be solved

Find the only value of θ for which the generated sequence starts at a1 = 2 and the concatenation of the generated sequence equals the original value: τ = θ.
Give your answer rounded to 24 places after the decimal point.

[jack]

maybe I misunderstood

Code: QB64: [Select]

1. b = 2.95693889137788
2. For i = 1 To 9
3.     a = Fix(b)
4.     Print a; " ";
5.     b = Fix(b) * (b - Fix(b) + 1)
6. Next
7. Print
8.  

Code: [Select]

2   3   5   8   13   21   34   55   89


[bplus]

Yeah your edit in OP works for me now too.

Did not see problem at bottom of page.

Every now and then I see something interesting pop up from Project Euler.