home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT30.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  401 b   |  26 lines
  1. SYMBOLICS: reduction and scan Ka
  2.    o=.'('  [  c=.')'  [  s=.'-'
  3.    minus=. '':'o,x.,c,s,y.'
  4.    'a' minus 'b'
  5. (a)-b
  6.    list=.'defg'
  7.    minus / list
  8. (d)-(e)-(f)-g
  9.    minus /\ list
  10. d            
  11. (d)-e        
  12. (d)-(e)-f    
  13. (d)-(e)-(f)-g
  14.    d,e,f,g=.<:f=.<:e=.<:d=.4
  15. 4 3 2 1
  16.    ". minus / list
  17. 2
  18.    ". minus /\ list
  19. 4 1 3 2
  20.    times=. '':'o,x.,c,''*'',y.'
  21.    list times"0 |. list
  22. (d)*g
  23. (e)*f
  24. (f)*e
  25. (g)*d
  26.