perl输出菱形图案

竹韵TY

如何用perl写一个脚本输出菱形的图案，请教大神！

RE_HASH

$>  perl -le 'binmode(STDOUT, ":utf8");     print "\x{25C7}"';
◇

laputa73

LSV5
我猜lz要的是*组成的菱形

1. 
   
2. -bash-4.1$ cat testl.pl
   
3. #!/bin/env perl
   
4. print "   *\n";
   
5. print "  ***\n";
   
6. print " *****\n";
   
7. print "  ***\n";
   
8. print "   *\n";
   
9. -bash-4.1$

复制代码

RE_HASH

我是逗着玩儿的。作业还是要自己想办法。

Okelani

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my $n = $ARGV[0] || 5;
   
5. my $mid = int $n / 2;
   
6. my ( $fore, $back ) = ( '.', ' ' );
   
7. for my $i ( 0 .. $n - 1 ) {
   
8.     my $position = $i <= $mid ? $mid - $i : $i - $mid;
   
9.     say $back x $position,
   
10.         $fore x ( $n - $position * 2 ),
    
11.         $back x $position;
    
12. }
    
13. 
    
14. __DATA__
    
15. 
    
16.   .
    
17. . .
    
18. .   .
    
19. . .
    
20.   .
    
21. 
    
22. 2 1 2
    
23. 1 3 1
    
24. 0 5 0
    
25. 1 3 1
    
26. 2 1 2
    

复制代码