horiuchi #5776(2008/02/19 01:34 GMT) [ Other ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
: BAR ( n -- ) 2 * 1 + 0 DO ." *" LOOP ; : ROW ( n r -- ) DUP ROT ROT - 1 - DUP 0 = IF DROP ELSE 0 DO SPACE LOOP THEN BAR ; : PIRAMID ( n -- ) DUP 0 DO DUP I ROW CR LOOP DROP ;
Rating0/0=0.00-0+
[ reply ]
horiuchi
#5776()
[
Other
]
Rating0/0=0.00
実行結果
4 PIRAMID
*
***
*****
*******
ok
: BAR ( n -- ) 2 * 1 + 0 DO ." *" LOOP ; : ROW ( n r -- ) DUP ROT ROT - 1 - DUP 0 = IF DROP ELSE 0 DO SPACE LOOP THEN BAR ; : PIRAMID ( n -- ) DUP 0 DO DUP I ROW CR LOOP DROP ;Rating0/0=0.00-0+
[ reply ]