Collatz Program modification

Forum Attachments

Collatz Program modification

Javier Taylor 31 Dec 2018 14:54

Hey guys I am trying to modify a program to count and list only the odd integers. How should I modify this code so that it will list and count only the odd integers?

pause
:ClrHome
:0->dim(L1)
:input A
:int(abs(A))
:While Ans not = 1
:Ans->L1 (1+dim(L1))
:if fpart (Ans/2)
:then: 3Ans+1
:else: Ans/2
:End:End

Re: Collatz Program modification

kg583 31 Dec 2018 19:18

You can "skip" all the even numbers in the Collatz map by dividing by 2 as much as possible before proceeding. This version relies on you starting with an odd number as the input A:

:ClrHome
:ClrList L₁
:Input A
:int(abs(A
:While Ans≠1
:Ans→L₁(1+dim(L₁
:3Ans+1
:While fPart(Ans/2)
:Ans/2
:End:End

---

The solution to a complex problem is often a simple answer.

Re: Collatz Program modification

Javier Taylor 31 Dec 2018 23:02

Thanks I will give this a try tonight. I am currently working with only odd numbers anyway. Again thank you.

Re: Collatz Program modification

Javier Taylor 31 Dec 2018 23:26

I get overflow error when I run this program.

Re: Collatz Program modification

kg583 01 Jan 2019 01:12

Typo. Try this:

:ClrHome
:ClrList L₁
:Input A
:int(abs(A
:While Ans≠1
:Ans→L₁(1+dim(L₁
:3Ans+1
:While not(fPart(Ans/2
:Ans/2
:End:End

---

The solution to a complex problem is often a simple answer.

Re: Collatz Program modification

Javier Taylor 01 Jan 2019 04:24

That works great thank you for the help