Действительно :)

dev 20.11.2005 16:26

Интересно, что скажет Misha v.3? :)
Может добавить в примеры или просто как-то зафиксировать на форуме с ключевыми словами?

# Parameters: year is natural number, month is int 1..12.
# Result is number of days at a month (int).
@days_per_month[month;year]
^if($month%2 !|| $month\8){
	$result(31)
}{
	^if($month == 2){
    		^if(^is_leap_year[$year]){
    	    		$result(29)
    		}{
    			$result(28)
    		}
	}{
    		$result(30)
	}
}

# Parameter (year) is natural number, result is bool.
# Returns true if year is leap, else false.
@is_leap_year[year]
$result(($year&3) == 0 && $year%100 != 0 || $year%400 == 0)

---