home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT19.JS < prev    next >
Text File  |  1991-06-13  |  441b  |  26 lines
  1.           PROGRAMS: recursive Gd
  2.    a=. '$.=. 2-0=y.' ; '1'
  3.    b=. 'y. * $: y.-1'
  4.    factorial=. (a,<b) : ''
  5.    factorial 5
  6. 120
  7.    
  8.    d=. '(r,0)+0,r=. $: y.-1'
  9.    binomial=. (a,<d) : ''
  10.    binomial 4
  11. 1 4 6 4 1
  12.    
  13.    f=. 'r,+/_2{.r=. $: y.-1'
  14.    fibonacci=. (a,<f) : ''
  15.    fibonacci 10
  16. 1 1 2 3 5 8 13 21 34 55 89
  17.    
  18.    g=. '$.=. 2-0=x.' ; '1'
  19.    h=. 'y.*x.%~x.$:&<:y.'
  20.    outof=. '':(g,<h)
  21.    outof"0/~i. 4
  22. 1 1 1 1
  23. 0 1 2 3
  24. 0 0 1 3
  25. 0 0 0 1
  26.