Re^2: Question on Recursion

Not quite ... it'll only print the 9s! I'd suggest:

print "num=$num, result=", ($num ? substr("912345678", $num%9, 1) : 0)
+, "\n";
[download]

Comment on Re^2: Question on Recursion Download Code

Replies are listed 'Best First'.
Re^3: Question on Recursion by JavaFan (Canon) on Jan 09, 2009 at 13:26 UTC
Well, considering the OP has: `print "$num == 9\n" if ($total1 == 9);` [download] only printing the 9s was done on purpose, as that's what the OP is doing.	[reply] [d/l]
Re^4: Question on Recursion by roboticus (Chancellor) on Jan 09, 2009 at 13:29 UTC
JavaFan: Fair enough! ...roboticus	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks