home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT20.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  437 b   |  25 lines
  1.           PROGRAMS: recursive Ge
  2.    a=.'$.=.1+0<n=.x.-1'
  3.    b=.',:2{.y.'
  4.    c=.'(n$:0 2 1{y.),(1$:y.),'
  5.    hanoi =. '':(a;b;c,'n$:|.y.')
  6.    2 hanoi 'ABC'
  7. AC
  8. AB
  9. CB
  10.    |: 4 hanoi 0 1 2
  11. 0 0 2 0 1 1 0 0 2 2 1 2 0 0 2
  12. 2 1 1 2 0 2 2 1 1 0 0 1 2 1 1
  13.    
  14.    |: 'ABC'{~ 4 hanoi 0 1 2
  15. AACABBAACCBCAAC
  16. CBBCACCBBAABCBB
  17.    
  18.    c=.'r=.0#$.=.y.#1+n=.0'
  19.    d=.'r=.r,(n=.1+n),r'
  20.    h=.(c;d) : ''
  21.    h 4
  22. 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1
  23.    h 3
  24. 1 2 1 3 1 2 1
  25.