diff options
| author | James Smith <js5@sanger.ac.uk> | 2021-11-29 07:29:01 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-29 07:29:01 +0000 |
| commit | 751f6a10698e0c6720a97bb7bab62beefd551adb (patch) | |
| tree | 5ac42cccdcc83b8f14a646b184b0dbf98e04a0df /challenge-140 | |
| parent | 3741053244609ad8f60a7e561076cbccfe5e4d61 (diff) | |
| download | perlweeklychallenge-club-751f6a10698e0c6720a97bb7bab62beefd551adb.tar.gz perlweeklychallenge-club-751f6a10698e0c6720a97bb7bab62beefd551adb.tar.bz2 perlweeklychallenge-club-751f6a10698e0c6720a97bb7bab62beefd551adb.zip | |
Update README.md
Diffstat (limited to 'challenge-140')
| -rw-r--r-- | challenge-140/james-smith/README.md | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-140/james-smith/README.md b/challenge-140/james-smith/README.md index ef0bbca2d0..8689d712fd 100644 --- a/challenge-140/james-smith/README.md +++ b/challenge-140/james-smith/README.md @@ -108,8 +108,8 @@ This is written as a 1-liner as so: ```perl sub get_num { - my($i,$j,$k,$t) = @_; - (sort{$a<=>$b}map{++$t;map{$t*$_}1..$i}1..$j)[$k-1]; + my$t; + (sort{$a<=>$b}map{++$t;map{$t*$_}1..$_[0]}1..$_[1])[$_[2]-1]; } ``` |