codewars/6-kyu/pyramid-array/solution.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#lang racket/base

;; https://www.codewars.com/kata/515f51d438015969f7000013

(provide pyramid)

(define (pyramid n)
  (define (loop ret level cur)
    (define next (cons 1 cur))
    (if (= level n)
        (reverse ret)
        (loop (cons next ret) (+ level 1) next)))
  (loop '() 0 '()))