|
|
\ Целочисленный алгоритм перевода юлианской даты в календарную
\ l = jd + 68569;
\ n = int(( 4 * l ) / 146097);
\ l = l - int(( 146097 * n + 3 ) / 4);
\ i = int(( 4000 * ( l + 1 ) ) / 1461001);
\ l = l - int(( 1461 * i ) / 4) + 31;
\ j = int(( 80 * l ) / 2447);
\ dd = l - int(( 2447 * j ) / 80);
\ l = int(j / 11);
\ mm = j + 2 - ( 12 * l );
\ yy = 100 * ( n - 49 ) + i + l;
\ ( jd -- dd mm yy )
: JD>DATE
68569 + dup \ ( -- l l )
4 146097 */ \ ( -- l n )
dup >r \ ( -- l n ) R:(n)
146097 * \ ( -- l n*146097 ) R:(n)
3 + 2 rshift \ ( -- l (n*146097+3)/4 ) R:(n)
- \ ( -- l' ) R:(n)
dup 1+ \ ( -- l l+1 ) R:(n)
4000 1461001 */ \ ( -- l i ) R:(n)
dup >r \ ( -- l i ) R:(n i)
1461 4 */ \ ( -- l i*1461/4 ) R:(n i)
- 31 + dup \ ( -- l l ) R:(n i)
80 2447 */ \ ( -- l j ) R:(n i)
dup >r \ ( -- l j ) R:(n i j)
2447 80 */ - \ ( -- dd ) R:(n i j)
r@ 11 / \ ( -- dd l ) R:(n i j)
dup 12 * \ ( -- dd l l*12 ) R:(n i j)
r> 2 + \ ( -- dd l l*12 j+2) R:(n i)
swap - swap \ ( -- dd mm l ) R:(n i)
r> + \ ( -- dd mm l+i ) R:(n)
r> 49 - \ ( -- dd mm l+i n-49) R:()
100 * + \ ( -- dd mm yy )
;Пояснение - символ \ это начало комментария.
Вот так. Ни одной переменной. Ни одной скобки.
Никаких типов.
Просто мечта для писателя компиляторов. :-)
|
|
E-mail: 
info@telesys.ru
