Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

n! -- factor

Name: Anonymous 2007-09-14 9:02 ID:w+iUxD20



: n! ( n -- n! ) dup zero? [ drop 1 ] [ dup 1- n! * ] if ;

: ln! ( n lim -- ) over - [ dup n! . 1+ ] times drop ;



1 10 ln!

1

2

6

24

120

720

5040

40320

362880

Superior.

Name: Anonymous 2007-09-14 13:05 ID:j0wVmbUm

>>10
I did finish it, took an hour or something. Was for Project Euler.

Newer Posts