mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
10 lines
351 B
Scheme
10 lines
351 B
Scheme
;; first bernoulli numbers
|
|
(define (bernoulli m)
|
|
(do ((k 0 (+ k 1))
|
|
(sum 0 (do ((v 0 (+ v 1))
|
|
(sum sum (+ sum
|
|
(* (expt -1 v)
|
|
(binomial k v)
|
|
(/ (expt v m) (+ k 1))))))
|
|
((> v k) sum))))
|
|
((> k m) sum)))
|