home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / MacScheme20 / Mathlib / strarith.scm < prev    next >
Encoding:
Text File  |  1989-04-27  |  279 b   |  14 lines  |  [TEXT/????]
  1. ;;; $Header: strarith.scm,v 1.2 88/01/26 07:45:14 GMT gjs Exp $
  2. (define add-streams
  3.   (lambda (s1 s2)
  4.     (map-streams + s1 s2)))
  5.  
  6. (define sub-streams
  7.   (lambda (s1 s2)
  8.     (map-streams - s1 s2)))
  9.  
  10. (define scale-stream
  11.   (lambda (c s)
  12.     (map-stream (lambda (x) (* c x))
  13.         s)))
  14.