kunishi · July 2, 2012 07:47
diff --git a/gistfile1.sml b/gistfile1.sml
 fun factorial n =
  let
    fun fact1 1 result = result
     |  fact1 n result = fact1 (n-1) (n * result)
  in
    fact1 n 1
  end;
	fun factorial n =
	let
	fun fact1 1 result = result
	\| fact1 n result = fact1 (n-1) (n * result)
	in
	fact1 n 1
	end;