commitcd4add2cfa09915a1361eee27241a50b07239347parent4bcfc8a56e1b423dc44fec1f03747e45775b7304Author:Samir Parikh <noreply@samirparikh.com>Date:Thu, 6 Jan 2022 00:37:20 +0000 solve all testsDiffstat:

A | difference-of-squares/DifferenceOfSquares.pm | | | 27 | +++++++++++++++++++++++++++ |

A | difference-of-squares/HELP.md | | | 36 | ++++++++++++++++++++++++++++++++++++ |

A | difference-of-squares/README.md | | | 40 | ++++++++++++++++++++++++++++++++++++++++ |

A | difference-of-squares/difference-of-squares.t | | | 109 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |

4 files changed, 212 insertions(+), 0 deletions(-)diff --git a/difference-of-squares/DifferenceOfSquares.pm b/difference-of-squares/DifferenceOfSquares.pm@@ -0,0 +1,27 @@ +package DifferenceOfSquares; +use strict; +use warnings; +use Exporter qw<import>; +our @EXPORT_OK + = qw<square_of_sum sum_of_squares difference_of_squares>; + +sub square_of_sum { + my ($number) = @_; + my $sum; + $sum += $_ foreach (1 .. $number); + return $sum * $sum; +} + +sub sum_of_squares { + my ($number) = @_; + my $sum; + $sum += $_ * $_ foreach (1 .. $number); + return $sum; +} + +sub difference_of_squares { + my ($number) = @_; + return square_of_sum($number) - sum_of_squares($number); +} + +1;diff --git a/difference-of-squares/HELP.md b/difference-of-squares/HELP.md@@ -0,0 +1,35 @@ +# Help + +## Running the tests + +There is a Perl 5 script with the extension `.t`, which will be used to test +your solution. You can run through the tests by using the command: + +```bash +`prove .` +``` + +## Submitting your solution + +You can submit your solution using the `exercism submit DifferenceOfSquares.pm` command. +This command will upload your solution to the Exercism website and print the solution page's URL. + +It's possible to submit an incomplete solution which allows you to: + +- See how others have completed the exercise +- Request help from a mentor + +## Need to get help? + +If you'd like help solving the exercise, check the following pages: + +- The [Perl 5 track's documentation](https://exercism.org/docs/tracks/perl5) +- [Exercism's support channel on gitter](https://gitter.im/exercism/support) +- The [Frequently Asked Questions](https://exercism.org/docs/using/faqs) + +Should those resources not suffice, you could submit your (incomplete) solution to request mentoring. + +To get help if you're having trouble, you can use one of the following resources: + +- [/r/perl5](https://www.reddit.com/r/perl5) is the perl5 subreddit. +- [StackOverflow](http://stackoverflow.com/questions/tagged/perl5) can be used to search for your problem and see if it has been answered already. You can also ask and answer questions. +\ No newline at end of filediff --git a/difference-of-squares/README.md b/difference-of-squares/README.md@@ -0,0 +1,39 @@ +# Difference Of Squares + +Welcome to Difference Of Squares on Exercism's Perl 5 Track. +If you need help running the tests or submitting your code, check out `HELP.md`. + +## Instructions + +Find the difference between the square of the sum and the sum of the squares of the first N natural numbers. + +The square of the sum of the first ten natural numbers is +(1 + 2 + ... + 10)² = 55² = 3025. + +The sum of the squares of the first ten natural numbers is +1² + 2² + ... + 10² = 385. + +Hence the difference between the square of the sum of the first +ten natural numbers and the sum of the squares of the first ten +natural numbers is 3025 - 385 = 2640. + +You are not expected to discover an efficient solution to this yourself from +first principles; research is allowed, indeed, encouraged. Finding the best +algorithm for the problem is a key skill in software engineering. + +## Source + +### Created by + +- @bistik + +### Contributed to by + +- @kytrinyx +- @m-dango +- @rfilipo +- @Scientifica96 + +### Based on + +Problem 6 at Project Euler - http://projecteuler.net/problem=6 +\ No newline at end of filediff --git a/difference-of-squares/difference-of-squares.t b/difference-of-squares/difference-of-squares.t@@ -0,0 +1,109 @@ +#!/usr/bin/env perl +use Test2::V0; +use JSON::PP; +use constant JSON => JSON::PP->new; + +use FindBin qw<$Bin>; +use lib $Bin, "$Bin/local/lib/perl5"; + +use DifferenceOfSquares + qw<square_of_sum sum_of_squares difference_of_squares>; + +my @test_cases = do { local $/; @{ JSON->decode(<DATA>) }; }; + +imported_ok qw<square_of_sum sum_of_squares difference_of_squares> + or bail_out; + +for my $case (@test_cases) { + my $func; + if ( $case->{property} eq 'squareOfSum' ) { + $func = \&square_of_sum; + } + elsif ( $case->{property} eq 'sumOfSquares' ) { + $func = \&sum_of_squares; + } + elsif ( $case->{property} eq 'differenceOfSquares' ) { + $func = \&difference_of_squares; + } + + is( $func->( $case->{input}{number} ), + $case->{expected}, $case->{description}, ); +} + +done_testing; + +__DATA__ +[ + { + "description": "Square the sum of the numbers up to the given number: square of sum 1", + "expected": 1, + "input": { + "number": 1 + }, + "property": "squareOfSum" + }, + { + "description": "Square the sum of the numbers up to the given number: square of sum 5", + "expected": 225, + "input": { + "number": 5 + }, + "property": "squareOfSum" + }, + { + "description": "Square the sum of the numbers up to the given number: square of sum 100", + "expected": 25502500, + "input": { + "number": 100 + }, + "property": "squareOfSum" + }, + { + "description": "Sum the squares of the numbers up to the given number: sum of squares 1", + "expected": 1, + "input": { + "number": 1 + }, + "property": "sumOfSquares" + }, + { + "description": "Sum the squares of the numbers up to the given number: sum of squares 5", + "expected": 55, + "input": { + "number": 5 + }, + "property": "sumOfSquares" + }, + { + "description": "Sum the squares of the numbers up to the given number: sum of squares 100", + "expected": 338350, + "input": { + "number": 100 + }, + "property": "sumOfSquares" + }, + { + "description": "Subtract sum of squares from square of sums: difference of squares 1", + "expected": 0, + "input": { + "number": 1 + }, + "property": "differenceOfSquares" + }, + { + "description": "Subtract sum of squares from square of sums: difference of squares 5", + "expected": 170, + "input": { + "number": 5 + }, + "property": "differenceOfSquares" + }, + { + "description": "Subtract sum of squares from square of sums: difference of squares 100", + "expected": 25164150, + "input": { + "number": 100 + }, + "property": "differenceOfSquares" + } +]