home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_7bs.seq < prev    next >
Text File  |  1990-04-14  |  772b  |  31 lines
  1. \ Balraj Sidhu   Set: 14D4
  2. \ Comp 462 - Forth
  3. \ Date: April 12, 1990
  4. \ Problem 4.7
  5.  
  6.  7  constant  days/week
  7. 24  constant  hours/day
  8. 60  constant  seconds/minute
  9. 60  constant  minutes/hour
  10.  
  11. : seconds_day ( -- sd )
  12.         hours/day minutes/hour * seconds/minute um* 2dup d. ;
  13.  
  14. : seconds_week ( sd -- )
  15.        2dup d2* d2* d2*  2swap d- d. ;
  16.  
  17. : minutes_day ( -- md )
  18.         hours/day minutes/hour * dup . ;
  19.  
  20. : minutes_week ( md -- )
  21.         days/week * . ;
  22.  
  23. : time ( -- )
  24.         cr
  25.         ." The number of seconds in a day is: " seconds_day cr
  26.         ." The number of seconds in a week is: " seconds_week cr
  27.         ." The number of minutes in a day is: " minutes_day cr
  28.         ." The number of minutes in a week is: " minutes_week cr ;
  29.  
  30.  
  31.