RosettaCodeData/Task/Bernoulli-numbers/FunL/bernoulli-numbers.funl

7 lines
196 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
import integers.choose
def B( n ) = sum( 1/(k + 1)*sum((if 2|r then 1 else -1)*choose(k, r)*(r^n) | r <- 0..k) | k <- 0..n )
for i <- 0..60 if i == 1 or 2|i
printf( "B(%2d) = %s\n", i, B(i) )