kunishi · January 29, 2014 10:18
diff --git a/millionPower.sml b/millionPower.sml
 fun millionPower(x:real) =
    let
 	val four = x*x*x*x;
 	val twenty = four*four*four*four*four;
 	val hundred = twenty*twenty*twenty*twenty*twenty;
 	val fivehundred = hundred*hundred*hundred*hundred*hundred
    in
 	fivehundred*fivehundred
    end;
	fun millionPower(x:real) =
	let
	val four = xxx*x;
	val twenty = fourfourfourfourfour;
	val hundred = twentytwentytwentytwentytwenty;
	val fivehundred = hundredhundredhundredhundredhundred
	in
	fivehundred*fivehundred
	end;