I was searching for something like:
Code: Select all
fn round($x, $decimal)
{
ret([rounded $x on $decimal decimals])
}
Code: Select all
fn round($x, $decimal)
{
ret([rounded $x on $decimal decimals])
}
Code: Select all
// Round $x to $d decimals.
fn round($x, $d)
{
fn integer($x)
{
$base = floor($x)
$dec = $x - $base
if $dec >= 0.5 {ret($base + 1)}
else {ret($base)}
}
$base = floor($x)
$dec = integer(($x - $base) * pow(10, $d)) / pow(10, $d)
ret($base + $dec)
}