From b49df85fd5e5dc70b22e9dda8e3406004ceab36f Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sat, 12 Oct 2019 23:58:12 -0400 Subject: initial commit --- challenge-029/adam-russell/blog.txt | 0 challenge-029/adam-russell/perl5/ch-1.pl | 0 challenge-029/adam-russell/perl5/ch-2.pl | 0 3 files changed, 0 insertions(+), 0 deletions(-) create mode 100644 challenge-029/adam-russell/blog.txt create mode 100644 challenge-029/adam-russell/perl5/ch-1.pl create mode 100644 challenge-029/adam-russell/perl5/ch-2.pl diff --git a/challenge-029/adam-russell/blog.txt b/challenge-029/adam-russell/blog.txt new file mode 100644 index 0000000000..e69de29bb2 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..e69de29bb2 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..e69de29bb2 -- cgit From 89e00d03ec8feaf33aa2be2c3b20ee8894218a40 Mon Sep 17 00:00:00 2001 From: Russell Date: Sun, 13 Oct 2019 09:18:05 -0400 Subject: solution for challenge 029 --- challenge-029/adam-russell/blog.txt | 1 + challenge-029/adam-russell/perl5/Makefile.PL | 5 +++++ challenge-029/adam-russell/perl5/ch-1.pl | 10 ++++++++++ challenge-029/adam-russell/perl5/ch-2.pl | 9 +++++++++ challenge-029/adam-russell/perl5/pwc.i | 6 ++++++ 5 files changed, 31 insertions(+) create mode 100644 challenge-029/adam-russell/perl5/Makefile.PL create mode 100644 challenge-029/adam-russell/perl5/pwc.i 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 +%} + +double sqrt(double x); -- cgit