I was avoiding this one for a while simply because I wanted to have a better carry algorithm in mind. On the other hand, it does not seem to matter if I have a bad carry algorithm, because the program runs fairly quickly regardless. I was aiming for a CARRY algorithm that worked using encode and decode instead of relying on scanning and concatenating. Alas, I have not been able to succeed, despite having succeeded at applying such a technique to the act of multiplying, itself.

Problem #20:

∇R←E(B CARRY)S
⍝ Performs a carry operation.
R←(E+⌊(↑S)÷B),(B|↑S),1↓S
∇

∇R←X BIGMUL Y R←⊃(10 CARRY)/+⌿(¯1+⌽⍳⍴X)⌽((⍴X),-¯1+(⍴Y)+⍴X)↑X∘.×Y R←(((1+⌊10⍟1⌈↑R)⍴10)⊤↑R),1↓R ∇

∇R←PETWENTY ⍝ Compute sum of the decimaal digits of !100 +/⊃BIGMUL/1⍴¨⍳100 ∇