home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / easter2 < prev    next >
Lisp/Scheme  |  2020-01-01  |  1KB  |  33 lines
  1. #!/usr/local/bin/kermit +
  2. #
  3. # e a s t e r - Calculates date of Easter for any year between 1900 and 2099.
  4. # 
  5. # Usage:   easter <year>
  6. # Example: easter 2006
  7. # C-Kermit 8.0.212 or later required.
  8. # Reference: Scientific American, March 2001, p.80.
  9. #
  10. # Illustrates: kerbang scripts, S-Expressions, compound IF conditions,
  11. # array initialization, SET SEXP TRUNCATE ON to force all results to integer.
  12. # First version of this script needed nine TRUNCATE operators.
  13. #
  14. # Author: F. da Cruz, Columbia University, March 2001
  15. # Updated: March 2006.
  16. #
  17. set sexp truncate on
  18. dcl \&m[] = Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
  19. if ( not def \%1 || not numeric \%1 ) exit 1 Usage: \%0 year
  20. if ( < \%1 1900 || > \%1 2099 ) exit 1 "\%0: 1900 <= year < 2100"
  21. (setq x \%1)
  22. (setq a (mod x 19) b (/ x 100) c (mod x 100))
  23. (setq d (/ b 4) e (mod b 4))
  24. (setq g (/ (+ (* 8 b) 13) 25))
  25. (setq h (mod (+ (* a 19) b (- d) (- g) 15) 30))
  26. (setq m (/ (+ a (* h 11)) 319))
  27. (setq j (/ c 4) k (mod c 4))
  28. (setq l (mod (+ (* 2 e) (* 2 j) m (- k) (- h) 32) 7))
  29. (setq n (/ (+ h (- m) l 90) 25))
  30. (setq p (mod (+ h (- m) l n 19) 32))
  31. echo \fday(\m(x)\flpad(\m(n),2,0)\flpad(\m(p),2,0)) \m(p) \&m[n] \m(x)
  32. exit
  33.