diff options
| author | Adam Russell <ac.russell@live.com> | 2021-06-16 20:40:32 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2021-06-16 20:40:32 -0400 |
| commit | dc1d45fa369aa039ad3c7d6c721a3de267a60bba (patch) | |
| tree | ab93dd6281451272c93758ec3445301926387c37 | |
| parent | 26edcfc1d15cc74916d0e2a0f7001b17647b4f46 (diff) | |
| download | perlweeklychallenge-club-dc1d45fa369aa039ad3c7d6c721a3de267a60bba.tar.gz perlweeklychallenge-club-dc1d45fa369aa039ad3c7d6c721a3de267a60bba.tar.bz2 perlweeklychallenge-club-dc1d45fa369aa039ad3c7d6c721a3de267a60bba.zip | |
initial commit
| -rw-r--r-- | challenge-117/adam-russell/blog.txt | 0 | ||||
| -rw-r--r-- | challenge-117/adam-russell/blog1.txt | 0 | ||||
| -rw-r--r-- | challenge-117/adam-russell/perl/ch-1.pl | 78 | ||||
| -rw-r--r-- | challenge-117/adam-russell/perl/ch-2.pl | 0 | ||||
| -rw-r--r-- | challenge-117/adam-russell/prolog/ch-1.p | 0 | ||||
| -rw-r--r-- | challenge-117/adam-russell/prolog/ch-2.p | 0 |
6 files changed, 78 insertions, 0 deletions
diff --git a/challenge-117/adam-russell/blog.txt b/challenge-117/adam-russell/blog.txt new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-117/adam-russell/blog.txt diff --git a/challenge-117/adam-russell/blog1.txt b/challenge-117/adam-russell/blog1.txt new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-117/adam-russell/blog1.txt diff --git a/challenge-117/adam-russell/perl/ch-1.pl b/challenge-117/adam-russell/perl/ch-1.pl new file mode 100644 index 0000000000..56c6e7048a --- /dev/null +++ b/challenge-117/adam-russell/perl/ch-1.pl @@ -0,0 +1,78 @@ +use constant TRIANGLE_TOP => q|/\\| ; +use constant TRIANGLE_BOTTOM => q|/__\\|; + +sub print_triangle_3{ + my($n) = @_; + print " " x 5; + print TRIANGLE_TOP x 1; + print "\n"; + print " " x4; + print TRIANGLE_BOTTOM x 1; + print "\n"; + + print " " ." " . " ".TRIANGLE_TOP . " " . " " .TRIANGLE_TOP ; + print "\n"; + print " ". " ".TRIANGLE_BOTTOM . TRIANGLE_BOTTOM; + print "\n"; + + print " " .TRIANGLE_TOP . " ". " ".TRIANGLE_TOP . " ". " ". TRIANGLE_TOP; + print "\n"; + print TRIANGLE_BOTTOM . TRIANGLE_BOTTOM .TRIANGLE_BOTTOM; + print "\n"; + +} + +sub print_triangle_2{ + my($n) = @_; + print " " x 4; + print TRIANGLE_TOP x 1; + print "\n"; + print " " x3; + print TRIANGLE_BOTTOM x 1; + print "\n"; + + print " " x1; + print " " .TRIANGLE_TOP . " " . " " .TRIANGLE_TOP; + print "\n"; + print " ".TRIANGLE_BOTTOM . TRIANGLE_BOTTOM; + print "\n"; + +} + +sub print_triangle{ + my($n) = @_; + my $top = TRIANGLE_TOP . " "; + for my $i (1 .. $n ){ + print " "; + print " " x ($n - $i); + print $top x $i ; + print "\n"; + print " " x ($n - $i ); + print TRIANGLE_BOTTOM x ($i ); + print "\n"; + } +} + +MAIN:{ + print_triangle(1); + print "\n"; + print "\n"; + print_triangle(2); + print "\n"; + print "\n"; + print_triangle(3); + print "\n"; + print "\n"; + print_triangle(4); + print "\n"; + print "\n"; + print_triangle(7); + print "\n"; + print "\n"; + print_triangle(10); + print "\n"; + print "\n"; + print_triangle(20); + print "\n"; + print "\n"; +} diff --git a/challenge-117/adam-russell/perl/ch-2.pl b/challenge-117/adam-russell/perl/ch-2.pl new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-117/adam-russell/perl/ch-2.pl diff --git a/challenge-117/adam-russell/prolog/ch-1.p b/challenge-117/adam-russell/prolog/ch-1.p new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-117/adam-russell/prolog/ch-1.p diff --git a/challenge-117/adam-russell/prolog/ch-2.p b/challenge-117/adam-russell/prolog/ch-2.p new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/challenge-117/adam-russell/prolog/ch-2.p |