If you only want to consider positive factorials this code is golfed down further

Code:
Function f($)

	$f = 1
	For $i = 1 to $
		$f=CDbl($f)*$i

EndFunction

Edited by It_took_my_meds (2006-09-28 03:56 AM)