Pascal's triangle: Difference between revisions

{{Works with|Scheme|R<math>^5</math>RS}}

<lang scheme>(define (next-row row)

(define (triangle row rows)

(if (= rows 0)

(cons row (triangle (next-row row) (- rows 1)))))

 

Output:

<lang>((1) (1 1) (1 2 1) (1 3 3 1) (1 4 6 4 1))</lang>