打印金字塔

There's more than one way to do it!
https://metacpan.org http://perlmonks.org
头像
523066680
Administrator
Administrator
帖子: 340
注册时间: 2016年07月19日 12:14
拥有现金: 锁定
储蓄: 锁定
Has thanked: 30 times
Been thanked: 27 times
联系:

打印金字塔

帖子 #1 523066680 » 2017年03月17日 10:06

:perl -e "grep {print ' 'x(10-$_),'*'x($_*2+1),chr(10) } (0..10) "
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
*********************


:perl -e "$s='*'; for (0..10) {print ' 'x(10-$_),$s,chr(10); $s.='**'}"
*
***
*****
*******
*********
***********
*************
***************
*****************
*******************
*********************


or 字符串替换
Code: [全选] [展开/收缩] [Download] (Untitled.pl)
  1. my $s="          *          \n";
  2. do { print $s } while ( $s=~s/ (\*+) /*$1*/ );

回到 “Perl”

在线用户

用户浏览此论坛: 没有注册用户 和 1 访客