Stirling numbers of the first kind: Difference between revisions
→{{header|Perl}}
Line 740:
19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000
</pre>
=={{header|Kotlin}}==
{{trans|Java}}
<lang scala>import java.math.BigInteger
fun main() {
println("Unsigned Stirling numbers of the first kind:")
val max = 12
print("n/k")
for (n in 0..max) {
print("%10d".format(n))
}
println()
for (n in 0..max) {
print("%-3d".format(n))
for (k in 0..n) {
print("%10s".format(sterling1(n, k)))
}
println()
}
println("The maximum value of S1(100, k) = ")
var previous = BigInteger.ZERO
for (k in 1..100) {
val current = sterling1(100, k)
previous = if (current!! > previous) {
current
} else {
println("$previous\n(${previous.toString().length} digits, k = ${k - 1})")
break
}
}
}
private val COMPUTED: MutableMap<String, BigInteger?> = HashMap()
private fun sterling1(n: Int, k: Int): BigInteger? {
val key = "$n,$k"
if (COMPUTED.containsKey(key)) {
return COMPUTED[key]
}
if (n == 0 && k == 0) {
return BigInteger.valueOf(1)
}
if (n > 0 && k == 0) {
return BigInteger.ZERO
}
if (k > n) {
return BigInteger.ZERO
}
val result = sterling1(n - 1, k - 1)!!.add(BigInteger.valueOf(n - 1.toLong()).multiply(sterling1(n - 1, k)))
COMPUTED[key] = result
return result
}</lang>
{{out}}
<pre>Unsigned Stirling numbers of the first kind:
n/k 0 1 2 3 4 5 6 7 8 9 10 11 12
0 1
1 0 1
2 0 1 1
3 0 2 3 1
4 0 6 11 6 1
5 0 24 50 35 10 1
6 0 120 274 225 85 15 1
7 0 720 1764 1624 735 175 21 1
8 0 5040 13068 13132 6769 1960 322 28 1
9 0 40320 109584 118124 67284 22449 4536 546 36 1
10 0 362880 1026576 1172700 723680 269325 63273 9450 870 45 1
11 0 3628800 10628640 12753576 8409500 3416930 902055 157773 18150 1320 55 1
12 0 39916800 120543840 150917976 105258076 45995730 13339535 2637558 357423 32670 1925 66 1
The maximum value of S1(100, k) =
19710908747055261109287881673376044669240511161402863823515728791076863288440277983854056472903481625299174865860036734731122707870406148096000000000000000000
(158 digits, k = 5)</pre>
=={{header|Perl}}==
| |||