RosettaCodeData/Task/Pascals-triangle/Racket/pascals-triangle.rkt

#lang racket

(define (pascal n)
  (define (next-row current-row)
    (map + (cons 0 current-row)
           (append current-row '(0))))
  (reverse
   (for/fold ([triangle '((1))])
             ([row (in-range 1 n)])
     (cons (next-row (first triangle)) triangle))))
tasks a-s 2013-04-10 23:57:08 -07:00			`#lang racket`

			`(define (pascal n)`
			`(define (next-row current-row)`
			`(map + (cons 0 current-row)`
			`(append current-row '(0))))`
September 2017 Update 2017-09-23 10:01:46 +02:00			`(reverse`
			`(for/fold ([triangle '((1))])`
			`([row (in-range 1 n)])`
			`(cons (next-row (first triangle)) triangle))))`