# Strange function definition result [duplicate]

I'm relatively new to Mathematica, and I'm trying to define a function f(k) that would do the following:

For any positive integer $k$, a finite sequence $a_i$ of fractions $\frac{x_i}{y_i}$ is defined by: $$a_1 = \frac{1}{k}\\ a_i = \frac{x_{i-1}+1}{y_{i-1}-1}$$ When $a_i$ reaches some integer $n$, the sequence stops. (That is, when $y_i=1$.) Define $f(k) = n$.

I have the following function written:

f[k_, sofar_] = Module[{num, result},
result =
If[sofar == 0,1/k,((num = Numerator[sofar]) + 1)/(num/sofar - 1)
];
If[IntegerQ[result],result,f[k,result]]
];
f[k_] = f[k, 0]


But I get the result {ComplexInfinity,List} and I don't understand why. What am I doing wrong?

-

## marked as duplicate by Jens, R. M.♦Apr 27 '13 at 20:53

Your function needs to depend on both $x_{i-1}$ and $y_{i-1}$. (This answer applies to any programming language you might choose for tackling this problem.) – whuber Mar 7 '13 at 23:08
so I pass $x_i/y_i$ as $sofar$ and then determine the new numerator, then $\frac{num}{sofar}$ is $y_i$ – Jakob Weisblat Mar 7 '13 at 23:11
The solution to this problem is to use := instead of = with the function definition so that it is not evaluated immediately.