diff options
| -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.' + } |