Revisions to Partial Sum of Harmonic Sequence!

deleted 1 character in body

edited May 28, 2017 at 20:28

Tcl 38 bytes

proc h x {expr $x?1./($x)+\\[h+\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

proc h x {expr $x?1./($x)+\\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

proc h x {expr $x?1./($x)+\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

added 10 characters in body

edited May 28, 2017 at 20:20

user63187

proc h x {expr $x?1./($x)+\[h $x-1]:0}

proc h x {expr $x?1./($x)+\\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

proc h x {expr $x?1./($x)+\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

proc h x {expr $x?1./($x)+\\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

added 1 character in body

edited May 28, 2017 at 20:03

proc h x {expr $x?1./($x)+[h+\[h $x-1]:0}

That's a very dirty hack, and the recursive calls pass literal strings like "5-1-1-1..." until it evaluates to 0.

answered May 28, 2017 at 19:48

Loading