Program Challenge 1

Forum Attachments

Summary:

Roll Dice

Program Challenge 1

Socks 26 Feb 2008 23:33

The Challenge:

Write a program to roll dice. Full rules and requirements can be found here.

Post your completed programs for the challenge here, in both .8xp and text format if possible. If not, don't worry about it.

I look forward to see all of the solutions!

---

/Socks

Last edited on 05 Apr 2008 20:50 by Socks Show more

Re: Program Challenge 1

Socks 02 Apr 2008 23:29

Is anybody working on this… or even thinking about it?

---

/Socks

Re: Program Challenge 1

GoVegan 02 Apr 2008 23:42

Hell yeah I'm thinking about it!

In fact, my friend is giving me his calculator-computer cable today! Then I'll be able to transfer programs (instead of manual typing)!

Ay, what is the challenge, anyway?

Cheers ~ James Kanjo

Re: Program Challenge 1

Socks 02 Apr 2008 23:46

Under the "Try it Out" menu, Challenges.

Now the link: challenges

---

/Socks

Re: Program Challenge 1

burr 02 Apr 2008 23:53

It might be good to edit your first post with the link and a brief summary of the challenge.

Re: Program Challenge 1

burr 03 Apr 2008 06:12

Just to clarify, when you say graphical, a square with the dice number displayed inside of it is acceptable?

Re: Program Challenge 1

Socks 05 Apr 2008 20:49

Yeah, that's fine.

After all, using dots would make it really complex, slower, and larger, and numbers on squares work just as well.

Even TI's huge ProbSim app uses numbers on squares, but that is way to big for my calculator, and has too many features I'll never use.

I'll edit that first post.

---

/Socks

Re: Program Challenge 1

GoVegan 03 Apr 2008 20:18

:ClrHome
:Output(1,1,"SOLUTION FOR THETI!BD CHALLENGE NO.1
:Output(8,5,"-JAMES KANJO
:Repeat getKey:End
:Repeat S>1 and not(fPart(S
:ClrHome
:Input "NO. OF SIDES:   ",S
:End
:Repeat N>1 and not(fPart(N
:ClrHome
:Disp "NO. OF SIDES:","
:Output(2,1,S
:Input "NO. OF THROWS:  ",N
:End
:ClrHome
:Disp "","
:N→dim(L₁
:For(T,1,N
:Output(1,1,"ROLLING DIE...                  
:randInt(1,S
:Disp Ans
:Ans→L₁(T
:End
:ClrHome
:Pause L₁

Cheers ~ James Kanjo

Last edited on 03 Apr 2008 22:40 by GoVegan Show more

Re: Program Challenge 1

burr 03 Apr 2008 22:09

If you get rid of the validation, you can make it even smaller:

:ClrHome
:Input "SIDES:",A
:Input "ROLLS:",B
:DelVar L1For(B,1,B
:randInt(1,A→L1(B
:Output(4,4,Ans
:rand(10
:End
:L1

Re: Program Challenge 1

GoVegan 03 Apr 2008 22:38

Yes, validation makes a big chunk in the code, and your method is nicely compressed without it.

If you're going to have the calculator graphically display each number rolling, be wary if the number of sides is 200 and the rolls are 5. Quite often a print of a higher number will be left behind and confuse the user as to how there are numbers higher than the limit. Seen as the results are stored in a list, this is not a big deal.

Re: Program Challenge 1

burr 04 Apr 2008 00:56

If you don't want the possibility of the roll displays overlapping each other, you can add a ClrHome after the rand(10.

Re: Program Challenge 1

GoVegan 04 Apr 2008 09:18

Good thinking 99

Re: Program Challenge 1

Socks 05 Apr 2008 20:53

@Burr and James: Are those your final submitted programs?

Also, I removed the graphical clause, because it seemed unnecessary.

---

/Socks

Last edited on 05 Apr 2008 20:56 by Socks Show more

Re: Program Challenge 1

GoVegan 06 Apr 2008 00:17

Well, seeing as you got rid of the word "graphical", I will submit a new program:

:ClrHome
:Repeat S>1 and not(fPart(S
:Input "NO. OF SIDES:",S
:End
:Repeat N>1 and not(fPart(N
:Input "NO. OF THROWS:",N
:End
:DelVar L₁For(T,1,N
:randInt(1,S→L₁(T
:End
:L₁

There was a couple of things I learnt from burr's code. 1) Storing a value to a non-existent list value #1, does not produce an error, and in fact creates the list with the stored value where it should be, and 2) You don't need "Pause" to be able to scroll left and right through a list. Thankyou burr.

I kept the ClrHome at the start because I think it is an important factor in all programs to start with a clean screen, and so eliminating any confusion that may be produced from the remains of a 'dirty' screen. I kept the validation because I think it is important to account for Human Error in all programs.

Cheers ~ James Kanjo

Re: Program Challenge 1

burr 06 Apr 2008 04:20

The list optimization of storing to the non-existent first list element actually applies generally to the element just past the end of the list. For example, if you have a list L1={3, 1, 6}, you can do 5→L1(4.

Re: Program Challenge 1

GoVegan 06 Apr 2008 05:07

I knew you could do it on a {} list, I just didn't know you could do it on a non-existing list.

Re: Program Challenge 1

burr 06 Apr 2008 04:15

Like James, I'm going to simplify my program now that there is no graphical display requirement:

:ClrHome
:Input "SIDES:",A
:Input "ROLLS:",B
:randInt(1,A,B→L1

This is my final submitted program.

Re: Program Challenge 1

GoVegan 06 Apr 2008 05:02

I just got owned.

Re: Program Challenge 1

burr 06 Apr 2008 05:19

Sorry about that :D

Re: Program Challenge 1

Socks 06 Apr 2008 16:56

Does that program output the rolls? I can't check because I don't have an 83 right now.

And, if it does, I think we could safely close the challenge right now.

---

/Socks

Last edited on 06 Apr 2008 16:57 by Socks Show more

Re: Program Challenge 1

DarkerLine 06 Apr 2008 17:30

It does output the rolls at the end, though not their total.

Re: Program Challenge 1

Xphoenix 07 Apr 2008 03:49

I can't compete with burr's (probably best if you take out the ClrHome), but here's a slightly larger and slower version using rand :P

:ClrHome
:Input "SIDES:",A
:Input "ROLLS:",B
:int(1+Arand(B→L1

Re: Program Challenge 1

burr 08 Apr 2008 00:04

I think it's time to move on to a new program challenge.

Re: Program Challenge 1

GoVegan 08 Apr 2008 07:45

But we are yet to have a ceremony and present you with a virtual crown!

Re: Program Challenge 1

burr 08 Apr 2008 08:17

The prize was the piece of chocolate cake that I had for dessert after dinner last night :D

Re: Program Challenge 1

thaibaco 13 Feb 2009 07:10

excuse me, i dont have the usb cable to connect my calculator to my computer.

how would i go about entering this program into my calculator?

Re: Program Challenge 1

Timothy Foster 13 Feb 2009 13:21

Enter this into the calculator programming editor. Press PGRM → → ENTER, then enter a name, then press ENTER. Finally, type this in there.

ClrHome
Input "SIDES:",A
Input "ROLLS:",B
randInt(1,A,B→L₁

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Last edited on 13 Feb 2009 13:21 by Timothy Foster Show more