Author Topic: GAME: Optimize this! (83+BASIC) (Read 11348 times)

DJ Omnimaga · « **Reply #45 on:** September 07, 2007, 12:05:00 am »

oh crap missed it, but i know the others people like weregoose didn't, even if they read the new rules

Delnar_Ersike · « **Reply #46 on:** September 07, 2007, 04:03:00 am »

If you guys want, I can post one of my own programs and see how you can optimize it. Note, however, that it uses xLib heavily.

Radical Pi · « **Reply #47 on:** September 07, 2007, 10:21:00 am »

That sounds like a good challenge. xLib unreadability should be a tough obstacle to add to the contest.

I'm trying (once again) to program a Tic Tac Toe game. I could submit that for an optimization contest here, since it's not like I could submit it to ticalc

Delnar_Ersike · « **Reply #48 on:** September 07, 2007, 11:30:00 am »

Alright then guys, here it is; turns it it doesn't use xLib as much as some of my other programs:
c1-->

CODE

ec1:6→dim(L5
:Text(‾1,0,0,"CHOOSE A TRAIT:
:Text(‾1,9,0,">DARE DEVIL
:Text(‾1,18,6,"CAUTIOUS
:Text(‾1,27,6,"GEAR HEAD
:Text(‾1,36,6,"PACIFIST
:Text(‾1,45,6,"BLOODTHIRSTY
:Text(‾1,54,6,"RANDOM TRAIT
:DelVar B1→A
:Repeat B=54
:0
:Repeat Ans
:real(8
:End
:Ans→B
:A→E
:A+(B=1 and A<6)-(B=4 and A>1→A
:If A≠E:Then
:For(C,9E,9A,A-E
:Text(‾1,C-1,0,"
:Text(‾1,C,0,">
:For(D,0,Z/5
:End:End:End:End
:A-(A=6)(randInt(1,5→L5(1
:prgmθSTDRKN
:real(12,6,0,0,95,62,1
:Text(‾1,0,0,"USE ARROW KEYS
:Text(‾1,9,0,"TO PUT POINTS IN
:Text(‾1,18,0,">PILOTING:
:Text(‾1,27,6,"GUNNERY:
:Text(‾1,36,6,"MERCHANT:
:Text(‾1,45,6,"ENGINEERING:
:Text(‾1,54,0,"EXTRA:
:4→dim(L2
:L5(1→A
:Fill 2,L5
:A→L5(1
:L5(2)+(A<3)-(A=3→L5(2
:L5(3)+(A=5)-not(fPart(A/2→L5(3
:L5(4)+(A=4)-(A=5→L5(4
:L5(5)+(A=3)-(A=1→L5(5
:For(A,1,4
:L5(A+1→L2(A
:End
:11→L5(6
:prgmθSTLGHT
:2→A
:While L5(6
:For(B,2,6
:Text(‾1,9B,82,L5(B
:If 10>L5(B
:Text(‾1,9B,88,"
:End
:Repeat B=3 or B=2
:Repeat Ans
:real(8
:End
:Ans→B
:A→E
:A+(B=1 and A<5)-(B=4 and A>2→A
:If A≠E:Then
:For(C,9E,9A,A-E
:Text(‾1,C-1,0,"
:Text(‾1,C,0,">
:For(D,0,Z/5
:End:End:End:End
:B=3 and L5(6)>0 and L5(A)+1≤7+L2(A-1→C
:C+L5(A→L5(A
:L5(6)-C→L5(6
:B=2 and L5(A)-1≥L2(A-1→C
:L5(A)-C→L5(A
:C+L5(6→L5(6
:End
:For(A,1,4
:Text(‾1,9A+9,82,L5(A+1
:End
:DelVar L2real(12,6,0,55,95,62,1
:Text(‾1,54,0,"CONFIRM? (Y/N)
:Repeat 5=abs(Ans-39
:real(8
:End
:If Ans=34
:Then
:DelVar L420→dim(L4
:{2,L5(1),L5(2),L5(3),L5(4),L5(5),125,100,0,2.2,5000,10→L4
:End
:DelVar L5c2

ec2

Xphoenix · « **Reply #49 on:** September 07, 2007, 03:28:00 pm »

Space Trader, right? Looks fairly well optimized, but I might be able to do a few bytes...

Delnar_Ersike · « **Reply #50 on:** September 07, 2007, 04:26:00 pm »

QuoteBegin-Xphoenix+7 Sep, 2007, 19:28-->

QUOTE (Xphoenix @ 7 Sep, 2007, 19:28)

Space Trader, right? Looks fairly well optimized, but I might be able to do a few bytes...

Yup, it actually took me some time to decide which one to post, as I didn't want to give away any secrets (like the two special reputations).

EDIT: W00t, 500 posts!

DJ Omnimaga · « **Reply #51 on:** September 07, 2007, 04:40:00 pm »

congrats delnar (*DJ Omnimaga

kalan_vod · « **Reply #52 on:** September 08, 2007, 12:20:00 am »

QUOTE

:If Ans=34
:Then
:DelVar L420→dim(L4
:{2,L5(1),L5(2),L5(3),L5(4),L5(5),125,100,0,2.2,5000,10→L4
:End
:DelVar L5

I just took a glance at this, looks fairly good. I just noticed that line, i wont point it out so you can find it

.

Delnar_Ersike · « **Reply #53 on:** September 08, 2007, 06:31:00 am »

QuoteBegin-kalan_vod+8 Sep, 2007, 4:2-->

QUOTE (kalan_vod @ 8 Sep, 2007, 4:20)

QUOTE

:If Ans=34
:Then
:DelVar L420→dim(L4
:{2,L5(1),L5(2),L5(3),L5(4),L5(5),125,100,0,2.2,5000,10→L4
:End
:DelVar L5

I just took a glance at this, looks fairly good. I just noticed that line, i wont point it out so you can find it

.

Hehe, that is the exact line I was expecting for people to optimize.

kalan_vod · « **Reply #54 on:** September 08, 2007, 02:20:00 pm »

Making sure you realized, other than that I see a few things but I will find some time

(looking good though!).

Weregoose · « **Reply #55 on:** September 09, 2007, 09:10:00 pm »

c1-->

CODE

ec1augment({2},augment(seq(L5(X),X,1,5),{125,\EE\2,0,2.2,5\EE\3,1->L4c2

ec2
Just saves 14 bytes.

Delnar_Ersike · « **Reply #56 on:** September 10, 2007, 03:48:00 am »

Nice Weregoose!

How the heck could I forget about augment? :paf:

DJ Omnimaga · « **Reply #57 on:** September 10, 2007, 09:35:00 am »

For some reasons I think weregoose will win this one, because i didn't found anymore possible optimizing in his last post

DJ Omnimaga · « **Reply #58 on:** September 10, 2007, 11:30:00 am »

Actually, you can save 15 bytes here:
c1-->

CODE

ec1Text(-54125+1,0,0,"CHOOSE A TRAIT:
For(X,1,6
Text(-54125+1,9X,6(X≠1),sub(">DARE DEVIL CAUTIOUS

Logged

DJ Omnimaga

Clacualters are teh gr33t
CoT Emeritus
LV15 Omnimagician (Next: --)
Posts: 55943
Rating: +3154/-232
CodeWalrus founder & retired Omnimaga founder

GAME: Optimize this! (83+BASIC)

« Reply #59 on: September 10, 2007, 11:45:00 am »

Logged

Print

Pages: 1 2 3 [4] 5 6 Go Up

« previous next »

Author Topic: GAME: Optimize this! (83+BASIC) (Read 11348 times)

Delnar_Ersike

Delnar_Ersike

Xphoenix

Delnar_Ersike

Delnar_Ersike

Weregoose

Delnar_Ersike

Weregoose