![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
ВНЕЗАПНО! Forth. сломай себе мозг
Nov. 29th, 2010 01:46 pm: fac1 ( n1 -- n )
1 facrec ;
: facrec ( n1 n2 -- n ) recursive
over
dup 0> if
* swap 1- swap facrec
else
drop nip
endif ;
мой любимый факториал без расширения стека
1 facrec ;
: facrec ( n1 n2 -- n ) recursive
over
dup 0> if
* swap 1- swap facrec
else
drop nip
endif ;
мой любимый факториал без расширения стека
