a-conjecture-of-mine

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

git clone: git://git.pablopie.xyz/a-conjecture-of-mine
Log
Files
Refs

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

1 file changed, 2 insertions, 2 deletions

Status	File Name	N° Changes	Insertions	Deletions
Modified	script.apl	4	2	2

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