Post by: Halifax on September 12, 2006, 11:38:00 am
(((G=8 or G=80) or (H=8 or H=48)) and (C or D or E or F=12))
Post by: kalan_vod on September 12, 2006, 08:11:00 pm
| QUOTE (Killerplayer @ 12 Sep, 2006, 17:38) |
| I need help because this routine doesn't work i need a routine the returns zero if C or D or E or F not equal to zero and return zero if G!=8 or 80 or H!=8 or 48. Heres my code that doesnt work. I need it to return one only when both are right (((G=8 or G=80) or (H=8 or H=48)) and (C or D or E or F=12)) 0 if c or d or e or f !=0 0 if g!=8 or 80 or H!=8 or 48 |
I thought you posted this in your Glatic thread, but I thought it over and found a simple solution:
c1
| CODE |
| ec1(G=8 or G=80 or H=8 or H=48) and max(0={C,D,E,Fc2 |
ec2
Post by: Halifax on September 13, 2006, 11:09:00 am
Post by: kalan_vod on September 13, 2006, 11:26:00 am
| QUOTE (Killerplayer @ 13 Sep, 2006, 17:09) |
| o sweet thanks and yes i did but no one answered :( |
I was going to back then, but couldn't figure it out...the way you said it seems odd, but I got it now :P
. Post by: DJ Omnimaga on September 13, 2006, 02:25:00 pm
Post by: Halifax on October 14, 2006, 07:03:00 am
Post by: Spellshaper on October 14, 2006, 08:10:00 am
If Str1="A" or Str1="B
Post by: Halifax on October 14, 2006, 02:59:00 pm
Post by: kalan_vod on October 14, 2006, 05:20:00 pm
c1-->
| CODE |
| ec1DelVar XRepeat Ans X+1->X inString("AB..etc",Str1,X Endc2 |
ec2
Amazingly it is even faster >.>, or at least not any bit noticable..Go with the code I posted, it is just as fast (if not faster) and smaller.
Amazingly it is even faster >.>, or at least not any bit noticable..Go with the code I posted, it is just as fast (if not faster) and smaller.
Post by: Halifax on October 15, 2006, 04:20:00 am
If Str1="A" or "B" or "C" or "D" or "E" or "F" or ...:Then
code
End
Post by: Radical Pi on October 15, 2006, 04:26:00 am
Then
XXX
End
Separate the A's and B's with spaces.
Post by: kalan_vod on October 15, 2006, 07:29:00 am
| CODE |
| ec1DelVar XRepeat Ans or X=26;If inString works or it reaches the end quit loop X+1->X;advance the pointer inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",Str1,X->O;testing, store into O End;hope you know this If O:then;if inString contain what Str1 did, then excute this code. if it didnt find it, it continues onward ... End c2 |
ec2
This will work, try it for yourself.
This will work, try it for yourself.
Post by: Halifax on October 15, 2006, 09:08:00 am
Post by: kalan_vod on October 15, 2006, 11:57:00 am
| QUOTE (Killerplayer @ 15 Oct, 2006, 15:08) |
| kk thanks kalan_vod |
Np, if you don't understand any of it let me know as I know it is difficult to understand others code. Also, this is rather interesting as it would help me also :P
. Strings are faster as we all know, but seeing this it makes it prove it (if you did the same thing but with a list). Post by: burr on October 16, 2006, 06:07:00 am
| QUOTE (kalan_vod @ 13 Sep, 2006, 2:11) | ||
c1-->
ec2 |
You did a good job optimizing, but you forgot to do some http://tibasicdev.wikidot.com/optimize. I'm surprised PiMan didn't say anything, because I know he knows them :D
c1
| CODE |
| ec1(36=abs(G-44) or 20=abs(H-28))max(0={C,D,E,Fc2 |
ec2
Post by: DJ Omnimaga on October 16, 2006, 06:33:00 am
Post by: burr on October 16, 2006, 07:47:00 am
| QUOTE (xlibman @ 16 Oct, 2006, 12:33) |
| yea he prbly wanted to make the code still understandable, or prbly radical_pi didnt checked this topic after his reply, interesting guide tho you posted here, tifreak8x should add it to his link section if not done alerady. Welcome here btw :) |
kalan_vod wanted to make the code understandable? I think you're talking about a different kalan_vod, because the kalan_vod I know loves hard to read code :P
The optimization guide I linked to is part of the http://tibasicdev.wikidot.com wiki I started a couple months ago. The wiki has lots of other good TI-Basic information (including a pretty good http://tibasicdev.wikidot.com/resources page :D
) and is open to every TI-Basic programmer to contribute to. Hopefully it can keep growing and become a valuable resource for the TI-Basic community. Post by: Halifax on October 16, 2006, 10:46:00 am
Post by: burr on October 16, 2006, 09:58:00 pm
| QUOTE (Killerplayer @ 16 Oct, 2006, 16:46) |
| thanks burr I like that code better and also kalan_vod there is nothing I dont understand about your code it is very fast and easy |
I don't think kalan_vod left off those optimizations because he thought you didn't understand them. Most likely he just forgot about them; there's lots of optimizations to remember.
Post by: burr on October 16, 2006, 10:15:00 pm
| QUOTE (kalan_vod @ 15 Oct, 2006, 13:29) | ||
c1-->
ec2 |
I might be missing something, but why not use the code PiMan posted? The inString( command starts with the first character in the string and moves to the right by default, so there really is no need to introduce another variable or even use a loop; a simple conditional will do.
Post by: DJ Omnimaga on October 17, 2006, 03:08:00 am
personally I write hard to understand code as well, only problem is that it's not as optimised as it would be with some other ppl :(
Post by: Halifax on October 17, 2006, 09:33:00 am
Post by: Radical Pi on October 17, 2006, 09:59:00 am
Post by: kalan_vod on October 17, 2006, 04:23:00 pm
Post by: DJ Omnimaga on October 18, 2006, 09:46:00 am
I hope you arent leaving us tho O_O
i would hate to see you go because you now program asm :( because you are a nice member in this community and on top of that we dont have enough asm programmers x.x