aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Digital-root-Multiplicative-digital-root/EasyLang/digital-root-multiplicative-digital-root.easy
View file

@ -1,7 +1,5 @@
proc _mdr n . md mp .
if n > 0
r = 1
.
proc _mdr n &md &mp .
if n > 0 : r = 1
while n > 0
r *= n mod 10
n = n div 10
@ -13,11 +11,11 @@ proc _mdr n . md mp .
md = r
.
.
proc mdr n . md mp .
proc mdr n &md &mp .
mp = 0
_mdr n md mp
.
numfmt 0 6
numfmt 6 0
print "Number MDR MP"
for v in [ 123321 7739 893 899998 ]
mdr v md mp
@ -43,9 +41,7 @@ for i = 0 to 9
write i & ": ["
for j = 0 to width - 1
write table[i * width + j]
if j < width - 1
write ","
.
if j < width - 1 : write ","
.
print "]"
.