DouKaku?beta

Comment detail

ピラミッドを作る (Nested Flatten) 
pyramidooooooo!
1
2
3
4
5
6
7
8
(define (pyramid h)
  (for-each (lambda (pyram) (display pyram) (newline))
            (do ((space (- h 1) (- space 1))
                 (star 1 (+ star 2))
                 (pyram '() (cons (string-append (make-string space #\space)
                                                 (make-string star #\*))
                                  pyram)))
                ((> 0 space) (reverse pyram)))))

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]