Landon Curt Noll
d2a42f42e8
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.
16 lines
245 B
Plaintext
16 lines
245 B
Plaintext
: printfour
|
|
|
|
dup ( save the number on top of the stack )
|
|
4 = ( compare it to four )
|
|
if
|
|
" forth " ( output a string for it )
|
|
drop ( and delete the saved value )
|
|
else
|
|
.
|
|
endif
|
|
;
|
|
|
|
: demo3 10 0 do i printfour loop cr ;
|
|
|
|
demo3
|