home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p2_4bs.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  495 b   |  25 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 28, 1990
  4. \ Problem 2.4
  5.  
  6. ( part b )
  7. ( the 2 +loop increments the count by 2 )
  8.  
  9. ( part a, c, d below )
  10.  
  11. : count_up ( n -- )
  12.         0 ?do cr i . loop ;
  13.  
  14. : count_up2 ( n -- )
  15.         0 ?do cr i . 2 +loop ;
  16.  
  17. : count_up_by ( n inc -- )
  18.         swap 0 ?do cr i . dup +loop drop ;
  19.  
  20. : count_down ( n -- )
  21.         0 swap ?do cr i . -1 +loop ;
  22.  
  23. : count_down_by ( n dec -- )
  24.         swap 0 swap ?do cr i . dup 1- not +loop drop ;
  25.