xquery version "1.0" encoding "UTF-8";

declare variable $accuracy := 0.000001;

(:Функция вычисления корня:)
declare function local:sqrt_fun($n, $k)
{ 
	if (abs(($k * $k - $n) div $accuracy) < 1)
	then $k
	else local:sqrt_fun($n, (($k + $n div $k)div 2))
};

(:Пусковая функция для вычисления корня:)
declare function local:sqrt($n)
{ 
	local:sqrt_fun($n, 1)
};


(:Функция вычисление экспоненты:)
declare function local:exp_fun($x, $i, $add, $res){
	if (abs(($add) div $accuracy) < 1)
	then $res
	else local:exp_fun($x, $i+1, $add * $x div $i, $res+$add)
};

(:Пусковая функция вычисление экспоненты:)
declare function local:exp($x){
	local:exp_fun($x, 1, 1, 0)
};

declare variable $today := xs:date("2003-01-01");

(:Функция нахождения количества месяцев от date0 и до контрольной даты:)
declare function local:age_in_month($date0)
{
	let
		$difference := xs:int(fn:replace(xs:string($today - $date0), "P(\d+)D", "$1")),
		$res := ($difference div (365.2425 div 12))
	
	return 
		if($res - xs:int($res) < 0.2) 
		then xs:int($res) 
		else xs:int($res)+1
};


<result>
	exp 0 = {round(100*local:exp(0))div 100}
	exp 1 = {round(100*local:exp(1))div 100}
	exp 2 = {round(100*local:exp(2))div 100}
	exp 3 = {round(100*local:exp(3))div 100}
	exp 4 = {round(100*local:exp(4))div 100}
	
	sqrt 0 = {round(100*local:sqrt(0))div 100}
	sqrt 1 = {round(100*local:sqrt(1))div 100}
	sqrt 2 = {round(100*local:sqrt(2))div 100}
	sqrt 3 = {round(100*local:sqrt(3))div 100}
	sqrt 4 = {round(100*local:sqrt(4))div 100}
	
	today = {$today}
	age_in_month from "2000-01-01" = {local:age_in_month(xs:date("2000-01-01"))}
	
	end
</result>