Box-Muller transform normal distribution method for Lasso 9

normalDist.lasso

/* ============================================================
See http://rosettacode.org/wiki/Statistics/Normal_distribution#Lasso
============================================================ */
define normalDist(mean::decimal=0.5,sdev::decimal=0.2) => {
	// Uses Box-Muller transform
	return ((-2 * decimal_random->log)->sqrt * (2 * pi * decimal_random)->cos) * #sdev + #mean
}