用*號輸出字母C的圖案

davie5201314

題目：用*號輸出字母C的圖案，要求用python寫出，求解

yjh777

os.system 調用  figlet  ：）

rubyish

shishi perl ~
biru:



perl abc.pl
abc.pl

1. #!/usr/bin/perl
   
2. 
   
3. sub printC {
   
4.     my %setting = ( fg => '*', bg => ' ', size => 12, in => .3, eq => 1, @_ );
   
5.     my ( $size, $in, $fg, $bg ) = @setting{qw/size in fg bg/};
   
6.     my $R = ( $size - 4 ) / 3 / 2;
   
7.     my ( $move, $that, $this ) = ( 1 / 3, $R );
   
8.     my ( $R1, $R2, $R3 ) = ( $R - $in, $R + $in, $R + $move * 2 );
   
9.     my $mov2 = $setting{eq} ? $move / 2 : $move;
   
10.     $that -= $move for -1 .. $R / 2;
    
11.     $this = -$that - $move;
    
12. 
    
13.     for ( my $y = -$R3 ; $y <= $R3 ; $y += $move ) {
    
14.         for ( my $x = -$R3 ; $x <= $R3 ; $x += $mov2 ) {
    
15.             print $bg and next if $x > 0
    
16.               and $y > 0 && $y < $that || $y < 0 && $y > $this;
    
17.             my $r = sqrt( $x * $x + $y * $y );
    
18.             print $R1 < $r && $r < $R2 ? $fg : $bg;
    
19.         }
    
20.         print "\n";
    
21.     }
    
22. }
    
23. 
    
24. printC;
    
25. printC size => 16;
    
26. printC size => 16, in => .2;
    
27. printC bg   => 'C', fg => ' ', in => .2;
    
28. printC size => 40, in => .16, bg => '#', fg => ' ';
    
29. printC size => 40, in => .6, bg => '#', fg => ' ';
    
30. printC fg => '# ', bg => '. ', in => .2;
    
31. printC fg => '# ', bg => '. ', in => .2, eq => 0;
    
32. printC fg => '#',  bg => '.',  in => .2, eq => 0;
    

復制代碼