Changeset 814318047e8f2739e4def72c54aadd03667ccdf0

User picture

Commiter: Charles Childers

Author: Charles Childers

Parent: 6f4087cb6b

(2010/03/10 19:28) Almost 2 years ago

fix from marc

Affected files

Updated forthlets/hangman/dict.retro Download diff

6f4087cb6b11c592278ebb86b5b90cc298e3c857814318047e8f2739e4def72c54aadd03667ccdf0
7
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
7
( ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
8
8



9
include library/data/random-mwc.retro
9
include library/data/random-mwc.retro



10
include library/files.retro



10
11



11
( --[ Variables ]--------------------------------------------- )
12
( --[ Variables ]--------------------------------------------- )



12
13


...
...
28
: rand-off   ( -n ) dict-size @ >random ;
29
: rand-off   ( -n ) dict-size @ >random ;



29
: rand-pos   ( -n ) rand-off dict @ fseek drop ;
30
: rand-pos   ( -n ) rand-off dict @ fseek drop ;



30
31



31
: >line      ( -  ) repeat dict @ here fread drop
32
: >line      ( -  ) repeat dict @ fread 10 =if ;then again ;



32
                    here @ 10 =if ;then again ;



33
33



34
: readline   ( -  ) dict-word repeat dict @ over fread drop
34
: readline   ( -  ) dict-word repeat dict @ over fread! drop



35
                    dup @ 10 =if 0 swap ! ;; else 1+ then again ;
35
                    dup @ 10 =if 0 swap ! ;; else 1+ then again ;



36
36



37
: rand-word  ( -  ) rand-pos >line readline ;
37
: rand-word  ( -  ) rand-pos >line readline ;