在控制台打印金字塔

happy886rr

题目要求：
    用字符*打印一个金字塔，不限语言。

效果：


实现：

@echo off
set "str=                                           ******************************************"
for /l %%i in (1,1,38) do (
	call,echo,%%str:~%%i,%%i%%
)
set/p=
复制代码

欢迎帖码，语言不限。

taofan712

我要来答，给我3分钟。

codegay

>>> print(''.join([('*'*r).center(17,'-')+"\n" for r in range(1,18,2)]))
--------*--------
-------***-------
------*****------
-----*******-----
----*********----
---***********---
--*************--
-***************-
*****************
复制代码

pcl_test

ps

$n=9;1..$n|%{' '*($n-$_)+'*'*(2*$_-1)}
复制代码

taofan712

@echo off & setlocal EnableDelayedExpansion
set max=78
for /l %%$ in (1 1 10) do (
    set a=!a!**
    call :zhong !a! 
)
pause
:zhong
set s=%1
for /l %%# in (1,2,!max!) do if "!s:~%max%,1!" == "" set "s= !s! "
set s=!s:~1,%max%!& echo;!s!
exit /b
复制代码

bbaa

仅支持中文效率极低:http://www.bathome.net/thread-43049-1-1.html

codegay

这个贴应该发到出题区。

老刘1号

受win7CMD特性限制，只支持XP系统。

@echo off
Setlocal enabledelayedexpansion
::CODER BY Old.Liu POWERD BY iBAT
set /p long=Input:
set /a long=long/2
set /a long=long*2+1
set /a half=long/2
set /a i=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if !long! == 1 goto end
:loop
set /a i+=2
set /a half-=1
for /l %%a in (1 1 !half!) do set/p= <nul
for /l %%a in (1 1 !i!) do set/p=*<nul
echo.
if "!i!" equ "!long!" goto end
goto loop
:end
pause
复制代码

happy886rr

回复 7# codegay

出题区权限不够，挑战区这题又太简单。

taofan712

回复 9# happy886rr

继续搞点这种题目啊，趣味性十足。

taofan712

被截图蒙蔽了，实际上并没有居中的要求？
那么可以减几行

@echo off&setlocal enabledelayedexpansion
set "kong="
for /l %%a in (1,1,17) do set "kong=!kong! "
set "s=*"
for /l %%a in (1,1,17) do (
   echo !kong!!s!
   set "kong=!kong:~1!"
   set "s=!s!**!
)
pause
复制代码

taofan712

嗯嗯，还可以再少几行

@set s=                 *
:r
@echo;%s%&if "%s:~0,1%"==" " set s=%s:~1%%s:~-1%%s:~-1%&goto :r
@pause
复制代码

taofan712

这样判断的话，又可以再少几个字

@set s=                 *
:r
@echo(%s%&if %s:~,1%*==* set s=%s:~1%**&goto:r
@pause
复制代码

523066680

• my $s="          *          \n";
  
• do { print $s } while ( $s=~s/ (\*+) /*$1*/ );
  

taofan712

用goto取代if，又能减少几个字节。

@set s=                 O
:O
@echo;%s%&set s=%s:~1%OO&goto%s:~,2%O
:OO
pause
复制代码