diff options
| author | RikedyP <rikedyp@gmail.com> | 2025-09-15 13:40:45 +0100 |
|---|---|---|
| committer | RikedyP <rikedyp@gmail.com> | 2025-09-15 13:40:45 +0100 |
| commit | af333153c926d4bfadef5bd8a8c5b7c463975f09 (patch) | |
| tree | 4fcf6b535c843af600c6e92f76a7124e3dc0d647 | |
| parent | f78ccc41e5c6cbc1a2c0f5823e6004b703e8ac0c (diff) | |
| download | perlweeklychallenge-club-af333153c926d4bfadef5bd8a8c5b7c463975f09.tar.gz perlweeklychallenge-club-af333153c926d4bfadef5bd8a8c5b7c463975f09.tar.bz2 perlweeklychallenge-club-af333153c926d4bfadef5bd8a8c5b7c463975f09.zip | |
PeakPoint
| -rw-r--r-- | challenge-339/richard-park/apl/PeakPoint.aplf | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-339/richard-park/apl/PeakPoint.aplf b/challenge-339/richard-park/apl/PeakPoint.aplf new file mode 100644 index 0000000000..7ec65e7a4d --- /dev/null +++ b/challenge-339/richard-park/apl/PeakPoint.aplf @@ -0,0 +1,13 @@ + PeakPoint←{ + PP←{ + ⌈/0,+\⍵ + } +⍝ Tests + 1≢PP ¯5 1 5 ¯9 2:∘∘∘ + 30≢PP 10 10 10 ¯25:∘∘∘ + 6≢PP 3 ¯4 2 5 ¯6 1:∘∘∘ + 0≢PP ¯1 ¯2 ¯3 ¯4:∘∘∘ + 10≢PP ¯10 15 5:∘∘∘ + + 'All tests passed.' + } |