Move 1988-2004 entries into subdirs
We we move 1988-2004 entries from all of a year's winning entries in a single directory to each winner being in their own sub-directory under the given year directory.
This commit is contained in:
1 parent
1e82e8aa3e
commit
d2a42f42e8
478 files changed
No files matched your search
@@ -0,0 +1,27 @@
|
||||
( recursive factorial. given x on top, followed by )
|
||||
( an "accumulator" containing the product except for x! )
|
||||
|
||||
: fact-help2
|
||||
|
||||
dup if
|
||||
swap over swap
|
||||
*
|
||||
swap 1 -
|
||||
fact-help2
|
||||
then
|
||||
;
|
||||
|
||||
: fact
|
||||
|
||||
1 swap
|
||||
fact-help2
|
||||
drop
|
||||
;
|
||||
|
||||
: demo5
|
||||
|
||||
" The factorial of 3 is: " 3 fact . cr
|
||||
" The factorial of 5 is: " 5 fact . cr
|
||||
;
|
||||
|
||||
demo5
|
||||
Reference in new issue
Block a user