diff options
| author | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-03-25 12:38:25 +0000 |
|---|---|---|
| committer | Asher Harvey-Smith <asherharveysmith@gmail.com> | 2024-03-25 12:38:25 +0000 |
| commit | 200138c22ca9f7697cd55c8ab0c44e035b0484f5 (patch) | |
| tree | eade56f3c61d0d6b2def32ac240788ee7d0d2bd5 /challenge-262/asherbhs/apl/ch-1.apl | |
| parent | 041fe9129e3ef4d86df461a0feeee1b3740d5758 (diff) | |
| download | perlweeklychallenge-club-200138c22ca9f7697cd55c8ab0c44e035b0484f5.tar.gz perlweeklychallenge-club-200138c22ca9f7697cd55c8ab0c44e035b0484f5.tar.bz2 perlweeklychallenge-club-200138c22ca9f7697cd55c8ab0c44e035b0484f5.zip | |
challenge 262
Diffstat (limited to 'challenge-262/asherbhs/apl/ch-1.apl')
| -rw-r--r-- | challenge-262/asherbhs/apl/ch-1.apl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-262/asherbhs/apl/ch-1.apl b/challenge-262/asherbhs/apl/ch-1.apl new file mode 100644 index 0000000000..63974de53f --- /dev/null +++ b/challenge-262/asherbhs/apl/ch-1.apl @@ -0,0 +1,5 @@ +MaxPositiveNegative←{⌈/+/1 ¯1∘.=×⍵} + +⎕←MaxPositiveNegative ¯3 1 2 ¯1 3 ¯2 4 +⎕←MaxPositiveNegative ¯1 ¯2 ¯3 1 +⎕←MaxPositiveNegative 1 2 |