11 lines
256 B
Text
11 lines
256 B
Text
open random number list
|
|
|
|
vdc bs n = vdc' 0.0 1.0 n
|
|
where vdc' v d n
|
|
| n > 0 = vdc' v' d' n'
|
|
| else = v
|
|
where
|
|
d' = d * bs
|
|
rem = n % bs
|
|
n' = truncate (n / bs)
|
|
v' = v + rem / d'
|