RosettaCodeData/Task/Bernoulli-numbers/FunL/bernoulli-numbers.funl
2016-12-05 23:44:36 +01:00

6 lines
196 B
Text

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) )