13 lines
353 B
Plaintext
13 lines
353 B
Plaintext
import "/fmt" for Fmt
|
|
import "/math" for Math
|
|
|
|
var stirling = Fn.new { |x| (2 * Num.pi / x).sqrt * (x / Math.e).pow(x) }
|
|
|
|
System.print(" x\tStirling\t\tLanczos\n")
|
|
for (i in 1..20) {
|
|
var d = i / 10
|
|
System.write("%(Fmt.f(4, d, 2))\t")
|
|
System.write("%(Fmt.f(16, stirling.call(d), 14))\t")
|
|
System.print("%(Fmt.f(16, Math.gamma(d), 14))")
|
|
}
|