diff options
| author | Russell <arussel7@LAMU02YVC7LLVCG.uhc.com> | 2019-10-13 09:18:05 -0400 |
|---|---|---|
| committer | Russell <arussel7@LAMU02YVC7LLVCG.uhc.com> | 2019-10-13 09:18:05 -0400 |
| commit | 89e00d03ec8feaf33aa2be2c3b20ee8894218a40 (patch) | |
| tree | 7619b6b3b58e11e391a7f8afe7ca8b53bee1ac60 /challenge-029 | |
| parent | b49df85fd5e5dc70b22e9dda8e3406004ceab36f (diff) | |
| download | perlweeklychallenge-club-89e00d03ec8feaf33aa2be2c3b20ee8894218a40.tar.gz perlweeklychallenge-club-89e00d03ec8feaf33aa2be2c3b20ee8894218a40.tar.bz2 perlweeklychallenge-club-89e00d03ec8feaf33aa2be2c3b20ee8894218a40.zip | |
solution for challenge 029
Diffstat (limited to 'challenge-029')
| -rw-r--r-- | challenge-029/adam-russell/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-029/adam-russell/perl5/Makefile.PL | 5 | ||||
| -rw-r--r-- | challenge-029/adam-russell/perl5/ch-1.pl | 10 | ||||
| -rw-r--r-- | challenge-029/adam-russell/perl5/ch-2.pl | 9 | ||||
| -rw-r--r-- | challenge-029/adam-russell/perl5/pwc.i | 6 |
5 files changed, 31 insertions, 0 deletions
diff --git a/challenge-029/adam-russell/blog.txt b/challenge-029/adam-russell/blog.txt index e69de29bb2..eca2d4b1d9 100644 --- a/challenge-029/adam-russell/blog.txt +++ b/challenge-029/adam-russell/blog.txt @@ -0,0 +1 @@ +https://adamcrussell.livejournal.com/10141.html diff --git a/challenge-029/adam-russell/perl5/Makefile.PL b/challenge-029/adam-russell/perl5/Makefile.PL new file mode 100644 index 0000000000..05611fd8d3 --- /dev/null +++ b/challenge-029/adam-russell/perl5/Makefile.PL @@ -0,0 +1,5 @@ +use ExtUtils::MakeMaker; +WriteMakefile( + "NAME" => "pwc", # Name of package + "OBJECT" => "pwc_wrap.o" # Object files +); diff --git a/challenge-029/adam-russell/perl5/ch-1.pl b/challenge-029/adam-russell/perl5/ch-1.pl index e69de29bb2..17d465af57 100644 --- a/challenge-029/adam-russell/perl5/ch-1.pl +++ b/challenge-029/adam-russell/perl5/ch-1.pl @@ -0,0 +1,10 @@ +use strict; +use warnings; +## +# Write a script to demonstrate brace expansion. +## +my $statement = "@ARGV"; +$statement =~ m/(.*)\{(.*)\}(.*)/; +for my $brace (split(/,/, $2)){ + print "$1$brace$3\n"; +} diff --git a/challenge-029/adam-russell/perl5/ch-2.pl b/challenge-029/adam-russell/perl5/ch-2.pl index e69de29bb2..1c2d197084 100644 --- a/challenge-029/adam-russell/perl5/ch-2.pl +++ b/challenge-029/adam-russell/perl5/ch-2.pl @@ -0,0 +1,9 @@ +use strict; +use warnings; +## +# Write a script to demonstrate calling a C function. +## +use pwc; +my $number = $ARGV[0]; +my $sqrt = pwc::sqrt($number); +print "$sqrt\n"; diff --git a/challenge-029/adam-russell/perl5/pwc.i b/challenge-029/adam-russell/perl5/pwc.i new file mode 100644 index 0000000000..d820b84e59 --- /dev/null +++ b/challenge-029/adam-russell/perl5/pwc.i @@ -0,0 +1,6 @@ +%module pwc +%{ +#include <math.h> +%} + +double sqrt(double x); |