Anonymous user
Pascal's triangle: Difference between revisions
→{{header|R}}
(+ blsq (maybe improve formatting someday)) |
|||
Line 1,949:
lapply(0:h, function(i) choose(i, 0:i))
}</lang>
=={{header|Racket}}==
<lang Racket>#lang racket
;;Iterative version summing previous rows.
(define (pascal n)
(define (next-row current-row)
(map + (cons 0 current-row)
(append current-row '(0))))
(let-values
([(previous-rows last-row)
(for/fold ([triangle null]
[row '(1)])
([row-number (in-range 1 n)])
(values (cons row triangle)
(next-row row)))])
(reverse (cons last-row previous-rows))))
(pascal 5)</lang>
=={{header|RapidQ}}==
|