在控制台打印金字塔

happy886rr · 发表于 2017-3-17 11:00:32

回复 15# taofan712
感觉你已经做到极限了。

taofan712 · 发表于 2017-3-17 11:36:29

本帖最后由 taofan712 于 2017-3-17 11:43 编辑

回复 16# happy886rr

不，还没有，我从你这道题收获颇丰啊！
我后来有思考过，goto其实还可以减少一个标签，而且如果为了减少字节数，我从你用“set/p=”代替常见的pause，想到不如用ftp或者more，毕竟又少了两三个字符。
这样，九层，最终66个字节吧。

523066680 · 发表于 2017-3-17 17:55:44

接下来可以打印字符版 Sirpinsiki 三角形

happy886rr · 发表于 2017-3-17 21:59:27

回复 18# 523066680
那个Sirpinsiki太难了，我估计只有你跟aa77dd@163.com 兄能实现。

523066680 · 发表于 2017-3-17 22:43:33

本帖最后由 523066680 于 2017-3-18 08:26 编辑

回复 19# happy886rr

夸张了

，没试过字符版，好像可以先从直角开始。

my $floor = 5;
my $s = " "x$floor;
my @line;
for my $n ( 0 .. $floor-1 )
{
$s=~s/ /*/;
$line[$n] = $s;
}
for my $n ( $floor .. $floor*$floor - 1 )
{
$line[$n] = $line[$n%$floor] x ($n/$floor+1);
}
print join("\n", @line);

复制代码

*
**
***
****
*****
* *
** **
***  ***
**** ****
**********
* * *
** ** **
***  ***  ***
**** **** ****
***************
* * * *
** ** ** **
***  ***  ***  ***
**** **** **** ****
********************
* * * * *
** ** ** ** **
***  ***  ***  ***  ***
**** **** **** **** ****
*************************

发现差远了，晚点儿补上

老刘1号 · 发表于 2017-3-17 23:05:29

本帖最后由老刘1号于 2017-3-17 23:48 编辑

回复 1# happy886rr
兼容WIN7的来了

@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
set a=.
for /l %%a in (1 1 !half!) do set "a=!a! "
for /l %%a in (1 1 !i!) do set a=!a!*
echo!a!
if !long! == 1 goto end
:loop
set /a i+=2
set /a half-=1
set a=.
for /l %%a in (1 1 !half!) do set "a=!a! "
for /l %%a in (1 1 !i!) do set a=!a!*
echo!a!
if "!i!" equ "!long!" goto end
goto loop
:end
pause

复制代码

happy886rr · 发表于 2017-3-17 23:14:55

本帖最后由 happy886rr 于 2017-3-17 23:51 编辑

回复 21# 老刘1号
最后一版正常。

老刘1号 · 发表于 2017-3-17 23:21:07

本帖最后由老刘1号于 2017-3-18 00:07 编辑

回复 22# happy886rr

好的，收到
不用set输出的话……这种题不准备用批写了，太费劲

老刘1号 · 发表于 2017-3-17 23:26:58

回复 17# taofan712

现在这个时代，代码不仅是给机器看的，其他人也需要看，也需要理解，这样才能一起做成大的项目
过度的精简代码失去的东西比得到的多的多。
这也是为何会有注释，有缩进
编程的最高境界就是能让你写的程序自成文章

523066680 · 发表于 2017-3-18 09:37:18

本帖最后由 523066680 于 2017-3-18 09:56 编辑

my @lines = "*";
func( \@lines, 1 );
sub func
{
my ($ref, $lv) = (shift, shift);
my @tri;
my $top = $#$ref + 1;
grep { push @tri, "$_ $_" } @$ref;
grep { unshift @tri, " "x$top .$_ ." "x$top } ( reverse @$ref );
( $lv <= 3 ) ?
func( \@tri, $lv+1 ) : print join("\n", @tri);
}

复制代码

*
* *
* *
* * * *
* *
* * * *
* * * *
* * * * * * * *
* *
* * * *
* * * *
* * * * * * * *
* * * *
* * * * * * * *
* * * * * * * *
* * * * * * * * * * * * * * * *

复制代码

codegay · 发表于 2017-3-18 10:40:05

Writing Code That Nobody Else Can Read.

pcl_test · 发表于 2017-3-18 11:47:41

@echo off&setlocal enabledelayedexpansion
set level=4
set /a n=100000000,m=1
for /l %%a in (1 1 %level%) do set /a m*=2
set /a a=n+2*m,aa=m-1+n,m=n+m
for /l %%a in (%n% 1 %a%) do set "#%%a= "
set #%m%=*
for /l %%a in (%n% 1 %aa%) do (
set "s="&set r=*
for /f "tokens=1* delims==" %%b in ('set #') do set "s=!s!%%c"
echo;!s!
set /a b=m-%%a+n,c=m+%%a-n
for /l %%c in (!b! 1 !c!) do (
set /a d=%%c-1,e=%%c+1,h=c+1
for %%i in (!d!) do set f=!#%%i!
for %%j in (!e!) do set g=!#%%j!
if "!f!" neq "!g!" (set t=*) else set "t= "
for %%i in (!d!) do set #%%i=!r!
set r=!t!
)
set #!c!=!t!&set #!h!=*
)
pause

复制代码

老刘1号 · 发表于 2017-3-18 14:21:30

回复 20# 523066680

'&@(cls&Echo off 2>nul 3>nul)
'&set /p long=输入长度：
'&set /p floor=输入层数：
'&Cscript -nologo -e:vbscript "%~0" "%floor%" "%Long%"
'&Pause&Exit
floor_=WScript.Arguments(0)
long_=WScript.Arguments(1)
For a = 1 To floor_
For i = 1 To long_
For b = 1 To a
For j = 1 To i
Echo=Echo&"*"
Next
For j = i To long_
Echo=Echo&" "
Next
Next
Echo=Echo&vbNewLine
Next
Next
WScript.Echo echo

复制代码

523066680 · 发表于 2017-3-18 14:26:09

本帖最后由 523066680 于 2017-3-18 14:29 编辑

回复 28# 老刘1号

其实我20楼的那个不是标准的，上午想起来不对马上打草稿补了一发~

原版的是有一种递归性质，不管从哪一部分放大看都有相似性，而且越大越密集越好看

https://en.wikipedia.org/wiki/Sierpinski_triangle

老刘1号 · 发表于 2017-3-18 18:16:31

回复 29# 523066680

酱紫啊……

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

在控制台打印金字塔

评分

评分

浏览过的版块