Weekly Program Do-it!

Forum Attachments

Summary:

None

Weekly Program

TI-Basic Dude 24 Aug 2017 19:14

(Monday, August 20^th - Sunday, August 28^th 2017)

Program:Binary timer
Create a program that counts like a timer, but in binary.
Example:
1=0000
2=0001
3=0010
4=0011
5=0100
6=0101
7=0110
8=0111
9=1000
10=1001
11=1010
12=1011
And so on for eternity….
Make sure it counts with the SAME speed as seconds. It has to be AT LEAST 12 digits!

---

++ Next weeks Do-it:
Escape or DIE.
You are a bomber that needs to get out of a dungeon before you die. You have a deadly disease that needs to be cured. But one problem, you are running out of time, and need to find the exit! Good luck.

---

Please do not post more than once. You may edit your posts, and put a new date in it, this helps so the thread is not locked and cleaner.

Last edited on 25 Aug 2017 19:09 by TI-Basic Dude Show more

Re: Weekly Program

Battlesquid 24 Aug 2017 19:47

This actually seems feasible! I'll give this a try, but you should extend that date to reflect your posting date.

:)

---

Re: Weekly Program

Trenly 25 Aug 2017 08:00

This worked for me. I'm sure there are optimizations that could be made, but it allows for any integer up to a 16-bit binary number. To adjust the counting speed just change the number in the rand( since not every calculator processes at the same speed.

DelVar L₁
16→dim(L₁
⁻1→T
DelVar K
Repeat K or T>65534
T+1→T
T→E
getKey→K
For(θ,16,1,⁻1)
fPart(.5E)→L₁(θ
iPart(.5E→E
End
2L₁→L₁
"?
For(A,1,16
Ans+sub("01",1+L₁(A),1
End
sub(Ans,2,length(Ans)-1→Str1
ClrHome
Output(2,1,Str1
Disp T
rand(34  //adjust the 34 to a different number depending on the speed of your calculator.
End
"

Edit: maybe a decimal to binary routine could be made using this code? Some modifications would need to be made to allow it to automatically detect the length so its not limited to 16-bit integers but I think it could be useful.

Sources:
Number to string routine (modified)
Convert from decimal to binary

Last edited on 25 Aug 2017 08:22 by Trenly Show more

Bump

Trenly 08 Sep 2017 07:27

Anyone interested in making a decimal to binary routine and/or perhaps a binary to decimal? I don't have the time right now as I just started second year of university. It would actually be really cool if you could convert to any base. I personally believe that logarithms could make this really easy but as I said, I don't currently have the time.

Re: Bump

Battlesquid 08 Sep 2017 17:43

Congrats Trenly! I just started my second year of high school :P

I might try to do this, but I'm not sure.

---

Re: Weekly Program

Battlesquid 26 Aug 2017 19:36

I sort of already made next weeks game :P

---

Re: Weekly Program

kg583 26 Aug 2017 21:04

Here's my fairly compact solution that can count (practically) forever. It uses the built in timer and a CE command, but I don't see any rules against that. Note that it takes a full second before it actually starts counting.

:1→W
:startTmr→X
:"000→Str1
:ClrHome
:Repeat K
:getKey→K
:checkTmr(X
:If Ans>W:Then
:Disp sub(Str1,2,length(Str1)-1
:Ans→W
:Ans→Z
:"A→Str1
:For(A,int(logBASE(Z,2)),0,-1
:Z>2^A→Y
:Str1+eval(Ans→Str1
:Z-2^AY→Z
:End
:End
:End

This one will always count exactly one second per display, because A) it uses the built in timer and B) it has less lag because it calculates the next binary display after it has displayed the previous one and before the checkTmr(, during the wait period of 1 second.

---

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

Re: Weekly Program

Trenly 27 Aug 2017 00:07

Nuuu, now I cant use this on my 83/84/+/SE

Re: Weekly Program

Myles_Zadok 27 Aug 2017 01:44

"Nuuu"? What does that mean?

Re: Weekly Program

Trenly 27 Aug 2017 02:19

https://www.internetslang.com/NUU-meaning-definition.asp

Re: Weekly Program

Myles_Zadok 27 Aug 2017 17:37

This may be a dumb question, but isn't it just as easy to type "Nooo" as it is to type "Nuuu"?

Re: Weekly Program

Battlesquid 27 Aug 2017 21:35

There is no such thing as a dumb question :P

It is, but it makes the sentence funnier :)

---

Last edited on 27 Aug 2017 21:36 by Battlesquid Show more

Re: Weekly Program

AbduBasheer 28 Aug 2017 14:31

The 21 century, the land of emojis, emoticons, and abbreviations. We live in a amazing world where English has changed a lot. Just a week ago I didn't know what "hru"(how are you) meant, so we are in the same page:)

---