home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 1992 August / info-mac-1992.iso / Language (lang) / Lazy-Scheme / Examples / TestandGenerate / cont < prev    next >
Encoding:
Text File  |  1990-09-04  |  683 b   |  30 lines  |  [TEXT/Help]
  1.  
  2.  
  3.  
  4. (r2 m s o r1 e n r0 r y d)
  5.  
  6.   
  7. ((1 0)
  8.  (0 1)
  9.  (0 1 2 3 4 5 6 7 8 9)
  10.  (0 1 2 3 4 5 6 7 8 9)
  11.  (1 0)
  12.  (0 1 2 3 4 5 6 7 8 9)
  13.  (0 1 2 3 4 5 6 7 8 9)
  14.  (1 0)
  15.  (0 1 2 3 4 5 6 7 8 9)
  16.  (0 1 2 3 4 5 6 7 8 9)
  17.  (0 1 2 3 4 5 6 7 8 9))
  18.  
  19.  
  20. ((=? (+ d e) (+ y (* 10 r0)))
  21.  (=? (+ r0 (+ n r)) (+ e (* 10 r1)))
  22.  (=? (+ r1 (+ e o)) (+ n (* 10 r2)))
  23.  (=? (+ r2 (+ s m)) (+ o (* 10 m))) (<>? m 0)
  24.  (<>? s e) (<>? s n) (<>? s d) (<>? s m) (<>? s o) (<>? s r)
  25.  (<>? s y) (<>? e n) (<>? e d) (<>? e m) (<>? e o)
  26.  (<>? e y) (<>? n d) (<>? n m) (<>? n o) (<>? n r)
  27.  (<>? d m) (<>? d o) (<>? d r) (<>? d e) (<>? d y)
  28.  (<>? m o) (<>? m r) (<>? m e) (<>? m y) (<>? o r)
  29.  (<>? o e) (<>? o y) (<>? r e) (<>? r y))
  30.