Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: jack on October 30, 2021, 03:19:29 pm

Title: Concatenation Coincidence
Post by: jack on October 30, 2021, 03:19:29 pm
reference https://projecteuler.net/problem=751
Code: QB64: [Select]
  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)
  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)
  32.  
output
Code: [Select]
2.223561019313554106173177195 to  27  places
 2   2   2   3   5   6   10   19   31   35   54   106   173   177   195
Title: Re: Concatenation Coincidence
Post by: bplus on October 30, 2021, 03:50:02 pm
Hi jack,

If I plug in s = "2.95693889137788"
Shouldn't I get the same result as the reference link shows ie Fibonacci
Title: Re: Concatenation Coincidence
Post by: jack on October 30, 2021, 04:00:00 pm
hi bplus
on bottom of the page it states the problem to be solved
Quote
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.
Title: Re: Concatenation Coincidence
Post by: jack on October 30, 2021, 04:11:35 pm
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)
  8.  
Code: [Select]
2   3   5   8   13   21   34   55   89
Title: Re: Concatenation Coincidence
Post by: bplus on October 30, 2021, 04:16:07 pm
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.
Text Only | Text with Attachments