a-conjecture-of-mine

An exercise on polyglossy: the same problem solved on multiple languages

commit 7d4b4d436160f8a9888faed830beff8b887890e5
parent d9480e685948028ac01c435376232acb2b44d931
Author: Pablo Emilio Escobar Gaviria <pablo-escobar@riseup.net>
Date:   Sun, 24 Jan 2021 23:24:21 +1000

Minor changes the APL implementation

Diffstat:
Mscript.apl | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/script.apl b/script.apl
@@ -9,8 +9,8 @@
 ∇
 
 ⍝ Given a positive integer A, returns 1 if the conjecture holds for all pairs
-⍝ (A, B) with B=1, ..., A and 0 otherwise
-∇ RESULT←TEST A
+⍝ (A, B) with B = 1, ..., A and 0 otherwise
+∇ RESULT←TEST A ; BS ; SUMSBS ; SUMSAPLUSBS
   BS←⍳A
   SUMSBS←SUMDIGITS¨BS
   SUMSAPLUSBS←SUMDIGITS¨BS+A