blob: 0d6a00ba04456a870fa3ebb2b0f114b96dea38cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#lang racket
;; 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 '()))
|
