Rosetta Code

Pascal's triangle: Difference between revisions

Page Discussion

Pascal's triangle (view source)

Revision as of 09:08, 15 February 2017

140 bytes removed ,  7 years ago
→‎{{header|Racket}}
No edit summary
Line 3,524:
(map + (cons 0 current-row)
(append current-row '(0))))
(let-values reverse
(for/fold ([triangle '((1))])
([(previous-rows final-row)
(for/fold ([trianglerow (in-range 1 nulln)])
(cons [(next-row '(1first triangle)]) triangle))))
 
([row-number (in-range 1 n)])
(values (cons row triangle)
(next-row row)))])
(reverse (cons final-row previous-rows))))
 
</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/75043"