aboutsummaryrefslogtreecommitdiff
path: root/challenge-268/asherbhs/apl
diff options
context:
space:
mode:
authorAsher Harvey-Smith <asherharveysmith@gmail.com>2024-05-07 01:11:32 +0100
committerAsher Harvey-Smith <asherharveysmith@gmail.com>2024-05-07 01:11:32 +0100
commit7a348aca6231a5005c1e0c19de240d337f19d7ec (patch)
tree1520bf5843ae77cff7bab8e62e642e2c5ad7b7e0 /challenge-268/asherbhs/apl
parentc1756b0e7aed0ad70fa63feb2565c69215c9d426 (diff)
downloadperlweeklychallenge-club-7a348aca6231a5005c1e0c19de240d337f19d7ec.tar.gz
perlweeklychallenge-club-7a348aca6231a5005c1e0c19de240d337f19d7ec.tar.bz2
perlweeklychallenge-club-7a348aca6231a5005c1e0c19de240d337f19d7ec.zip
challenge 268
Diffstat (limited to 'challenge-268/asherbhs/apl')
-rw-r--r--challenge-268/asherbhs/apl/ch-1.apl5
-rw-r--r--challenge-268/asherbhs/apl/ch-2.apl5
2 files changed, 10 insertions, 0 deletions
diff --git a/challenge-268/asherbhs/apl/ch-1.apl b/challenge-268/asherbhs/apl/ch-1.apl
new file mode 100644
index 0000000000..cf6cd71ee4
--- /dev/null
+++ b/challenge-268/asherbhs/apl/ch-1.apl
@@ -0,0 +1,5 @@
+MagicNumber←-⍨⍥(⌊/)
+
+⎕←3 7 5 MagicNumber 9 5 7
+⎕←1 2 1 MagicNumber 5 4 4
+⎕←2 MagicNumber 5
diff --git a/challenge-268/asherbhs/apl/ch-2.apl b/challenge-268/asherbhs/apl/ch-2.apl
new file mode 100644
index 0000000000..0826b24696
--- /dev/null
+++ b/challenge-268/asherbhs/apl/ch-2.apl
@@ -0,0 +1,5 @@
+NumberGame←,⍤⌽(⊂⍤⍋⌷⊢)⍴⍨2,⍨2÷⍨≢
+
+⎕←NumberGame 2 5 3 4
+⎕←NumberGame 9 4 1 3 6 4 6 1
+⎕←NumberGame 1 2 2 3