0 Members and 2 Guests are viewing this topic.
Pt-On(0,0Pt-On(1,0...Pt-On(94,0
For(F,0,95Pt-On(F,0End
C(C!=V)+1->C
:1->X:0:For(X,1,100,X:Ans+1:End:Ans
1,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,0,0,0,0,0,0,0,0,0,0,11,1,1,1,1,1,1,1,1,1,1,1
0=sum(seq([B](L[sub]1[/sub](i),L[sub]2[/sub](i)),i,1,4
:For(I,1,4:L1(i->X:L2->Y:1->[B](Y,X:[B](Y,X-1->A:[B](Y,X+1:Ans+A+1->[B](Y,X+Ans:Ans->[B](Y,X-A:End:clrlist L3:For(Y,min(L2),max(L2:If 12=[B](Y,1:Then:Y->L3(1+dim(L3:mRow(0,[B],Y:1->[B](Y,1:Ans->[B](Y,30:End:End
@theUnnamedJust a little tip is that BBCode doesn't work inside of the [code][/code] command, such as your subscript commands. Just thought I'd let ya know
In TI basic the varibles a-z and Theda are indexed using an array and the calculator doesn't have to do anything more then *(arry_ptr+var_name-'a') to retrieve the value. where as the resolution of a number is a far more complex task because It has to do a conversion form a char array to a float which If you've ever implemented that in c is not pretty and a rather complex loop even when optimized.
StartTimer->AFor(F,0,9001123+456EndOutput(1,1,CheckTimer(A)/F
StartTimer->AFor(F,0,9001C+CEndOutput(1,1,CheckTimer(A)/F
:starttmr->A:While not(checkTmr(A:End[
:CheckTmr(A+1)/F
StartTmr->ARepeat checkTmr(AEndFor(F,0,9001CEndOutput(1,1,checkTmr(A)/F
StartTmr->ARepeat checkTmr(AEndFor(F,0,9001123EndOutput(1,1,checkTmr(A)/F
As for speed, I'm pretty sure the methods Builderboy is employing are almost as fast as if could ever get.
Plus he has done calc stuff for quite a while already.