diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-13 21:47:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-13 21:47:12 +0100 |
| commit | 711b08f6b2add49ff6b0ba8da68093dfc9211ad0 (patch) | |
| tree | cc0719ef67a7d1b1f2a86affbd6164d70e4c44db /challenge-029 | |
| parent | 9cd7a5bf18669d071b9ea9c339db6a7550ff9a04 (diff) | |
| parent | 89e00d03ec8feaf33aa2be2c3b20ee8894218a40 (diff) | |
| download | perlweeklychallenge-club-711b08f6b2add49ff6b0ba8da68093dfc9211ad0.tar.gz perlweeklychallenge-club-711b08f6b2add49ff6b0ba8da68093dfc9211ad0.tar.bz2 perlweeklychallenge-club-711b08f6b2add49ff6b0ba8da68093dfc9211ad0.zip | |
Merge pull request #756 from adamcrussell/challenge-029
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 new file mode 100644 index 0000000000..eca2d4b1d9 --- /dev/null +++ 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 new file mode 100644 index 0000000000..17d465af57 --- /dev/null +++ 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 new file mode 100644 index 0000000000..1c2d197084 --- /dev/null +++ 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); |