factorial powers program problems

[Chimaera]

I'm having problems with finding the correct number of zeros from the furthest right non zero digit and also turing doesn't allow me to save the value of the factorial of the number once I go past 12, is there any way I can solve these problems with the program? Thanks

code:

var num : int var fnum : string var znum : int get num for i : 1 .. num - 1     num := num * i end for fnum := intstr (num) put fnum if index (fnum, "0") = 0 then     put "The right-most non-zero digit of ", fnum, "! is ", fnum (*), " and it is followed by no zeros" elsif index (fnum, "0") not= 0 and index (fnum, "00") = 0 then     put "The right-most non-zero digit of ", fnum, "! is ", fnum (*-1), " and it is followed by 1 zero" elsif index (fnum, "00") not= 0 then znum := length (fnum (index (fnum, "00") .. *))     put "The right-most non-zero digit of ", fnum, "! is ", fnum (*-(length (fnum(index(fnum, "00")..*)))), " and it is followed by ",znum , " zeros." end if

[Mazer]

i don't really understand what the problem is with the factorials, but i think i can help with the nonzero number thing.

from what i see what you're trying to do is check if there is one zero, then if there are two zeroes, and so on. the problem with that is that it's really inefficient and if you had a number like 10 trillion (which is too big but oh well) things would get ugly. you should make a function that:
-takes an int
-converts it to a string
-then goes through the string backwards until it doesn't find a zero
-converts that part of the string back to an integer
-return the integer

this should do it:

code:

function rNonZero (num : int) : int     var snum := intstr (num)     for decreasing i : length (snum) .. 1         if snum (i) != "0" then             result strint (snum(i))         end if     end for     result -1 % this will tell you that you have no zeroes in the number end rNonZero

[Chimaera]

the problem with the factorials is that the numbers is causing an integer overflow, I need a way to convert the integer to string while saving the value of the num!

[Blade]

strint(var:string) -> string to integer function
intstr(var:int) -> integer to string funtion

[Andy]

we had a problem similar to this with the last dwite. i would do what blade said and use strint. and when u are multiplying a new number on, use the steps of how you would multiply by hand and manipulate the string character by character

[bugzpodder]

i cant program in turing anymore so i'll do it straight C++

num1=num;
while(num1>0) {num1/=5; cnt1+=num1;}
num1=num;
while(num1>0) {num1/=2; cnt2+=num1;}
num2=1;
for (i=0;i<cnt2-cnt1;cnt++){ num2=(num2*2)%10;}
for (j=1;j<=num;j++) {num1=j; while(num1%2==0) num1/=2; while(num1%5==0) num1/=5; num2=(num2*num1%10)%10; }
cout<<"The right most non-zero digit is "<<num2<<" and it is followed by "<<cnt1<<"zeros!!"<<endl;

[Andy]

and i'll translate that

code:

num1:=num loop exit when num1<=0 num1:=num1/5 cnt+=num1 end loop num1:=num loop exit when num1<=0 num1:=num1 div 2 cnt2+=num1 end loop num2:=1 for i:1..cnt2-cnt1-1 num2:=(num2*2) mod 10 end for for i:1..num num1:=j loop exit when num1 mod 2 not=0 num1:=num1 div 2 end loop loop exit when num1 mod 5 not=0 num1:=num1 div 5 end loop num2:= (num2*num1 mod 10) mod 10 end for put "The right most non-zero digit is ",num2," and it is followed by ",cnt1,"zeros!!";

wow... so much more complicated in turing

[bugzpodder]

copycat!!

[Andy]

jack, this is in the turing help section... i dont think the kids who ask for help know c++... thats why i said i translated yours?

[bugzpodder]

sheesh, stop spamming already... geez people these days? how many bits do you need man
do something useful and explain your program if you think you are so useful?
I purposely did NOT write Turing code! the idea is to learn from the code, NOT COPY AND PASTE~

do you think that I cant program in turing?

[Mazer]

bugzpodder wrote:

do you think that I cant program in turing?

now where would dodge get a crazy idea like that

bugzpodder wrote:

i cant program in turing anymore

[Andy]

exactly... u said it not me

[Chimaera]

ya this question was from a 1995 programming competition and my teacher said it was a very common problem for programmers because often they have to deal with numbers that're out of range for their integers, reals etc. etc. So they have to devise a solution which is sort of similar to what I'm trying to do here...