• lune-lovely's Gallery
  • View Profile
  • Send Private Message
  • Artist Info: ... Have a multiplication table ... arrow <br />
    <br />
    (define (count-up-from col row max)<br />
    (cond [(= max col) empty]<br />
    [else (cons (* col row)<br />
    (count-up-from (add1 col) row max))]))<br />
    (define (give-row row max)<br />
    (count-up-from 0 row max))<br />
    (define (count-up-rows row max)<br />
    (cond [(= max row) empty]<br />
    [else (cons (give-row row max)<br />
    (count-up-rows (add1 row) max))]))<br />
    (define (mult-table max)<br />
    (count-up-rows 0 max))<br />
    <br />
  • Avg. rating: