home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT18.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  462 b   |  24 lines
  1.           PROGRAMS: iterative Gc
  2.    a=. 'r=. 1 [ $.=. y. # 1'
  3.    b=. 'r=. r * 1+ # $.'
  4.    factorial=. (a;b) : ''
  5.    factorial 5
  6. 120
  7.    factorial"0 i. 6
  8. 1 1 2 6 24 120
  9.    > a;b
  10. r=. 1 [ $.=. y. # 1
  11. r=. r * 1+ # $.    
  12.    c=. 'r=. (0,r) + (r,0)'
  13.    binomials=. (a;c) : ''
  14.    binomials 4
  15. 1 4 6 4 1
  16.    fib=.(a;'r=.r,+/_2{.r') : ''
  17.    fib 10
  18. 1 1 2 3 5 8 13 21 34 55 89
  19.    d=. 'r=. 1 [ $.=. x. # 1'
  20.    e=. 'r=. (r*1+y.=.y.-1)%1+#$.'
  21.    outof=. '':(d;e)
  22.    3 outof 5
  23. 10
  24.