Anonymous user
Digital root/Multiplicative digital root: Difference between revisions
Digital root/Multiplicative digital root (view source)
Revision as of 08:02, 19 May 2017
, 6 years ago→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details
m (→{{header|Sidef}}: updated code) |
(→{{header|Kotlin}}: Updated example see https://github.com/dkandalov/rosettacode-kotlin for details) |
||
Line 1,595:
=={{header|Kotlin}}==
{{trans|FreeBASIC}}
<lang scala>// version 1.1.
fun multDigitalRoot(n: Int): Pair<Int, Int> = when {
Line 1,602:
var mdr: Int
var mp = 0
var nn = n
do {
mdr = if (nn > 0) 1 else 0
Line 1,614:
while (mdr >= 10)
Pair(mdr, mp)
}
}
Line 1,620:
val ia = intArrayOf(123321, 7739, 893, 899998)
for (i in ia) {
val (mdr, mp) = multDigitalRoot(i)
println("${i.toString().padEnd(9)} MDR = $mdr MP = $mp")
}
| |||