DouKaku?beta

Comment detail

ピラミッドを作る (Nested Flatten)

Factor です。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
USING: kernel io math ;

: piramid-line ( star-num space-num -- )
  [ " " write ] times
  [ "*" write ] times
  nl ;

: (piramid) ( star-num space-num -- )
  dup -1 =
  [ 2drop ]
  [ 2dup piramid-line
    1- swap 2 + swap (piramid) ]
  if ;

: piramid ( n -- )
  1- 1 swap (piramid) ;

! example
5 piramid

Index

Feed

Other

Link

Pathtraq

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