diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-04-12 08:29:45 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-04-12 08:31:36 +0100 |
| commit | 3e91905341fbdd353f6f83cf77a863a06ad8be16 (patch) | |
| tree | 3e1c38a0c2e2915c23120d5b5f1c9bba138512db /challenge-107 | |
| parent | f52caa033a98f17316c83bfdb875b76dc6f31722 (diff) | |
| download | perlweeklychallenge-club-3e91905341fbdd353f6f83cf77a863a06ad8be16.tar.gz perlweeklychallenge-club-3e91905341fbdd353f6f83cf77a863a06ad8be16.tar.bz2 perlweeklychallenge-club-3e91905341fbdd353f6f83cf77a863a06ad8be16.zip | |
push fixes
Diffstat (limited to 'challenge-107')
| -rw-r--r-- | challenge-107/james-smith/perl/ch-1.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-107/james-smith/perl/ch-1.pl b/challenge-107/james-smith/perl/ch-1.pl index dbec8818a5..2aabbee32c 100644 --- a/challenge-107/james-smith/perl/ch-1.pl +++ b/challenge-107/james-smith/perl/ch-1.pl @@ -10,8 +10,8 @@ use Test::More; ## the case where n >= 7 and n < 7... ## As we are asked for the first 3 these all exist in the case ## where n<7.... -## -## To get the next we can write them (in base "n") as +## +## To get the next we can write them (in base "n") as ## All other numbers can be generated by the rule ## "n-4", "2", "1", "0" (n-7 times), "1", "0", "0", "0" ## @@ -20,12 +20,12 @@ use Test::More; ## To get the desciption of a number of length k, we loop from ## 0..(k-1) counting the number of each digit in the string... ## We can do this with a harcoded series of tr///s but in if -## we want something dynamic we can write this as +## we want something dynamic we can write this as ## ## @Q = m{($_)}g; $count = scalar @Q; ## ## we can do this in one line by using @{[ ]} to convert to the -## list of matches to an array { subtle distinction here between +## list of matches to an array { subtle distinction here between ## lists and arrays! } and counting it by getting the scalar of ## the array... ## |