9 lines
180 B
Fortran
9 lines
180 B
Fortran
FUNCTION bico(n,k)
|
|
INTEGER k,n
|
|
REAL bico
|
|
CU USES factln
|
|
REAL factln
|
|
bico=nint(exp(factln(n)-factln(k)-factln(n-k)))
|
|
return
|
|
END
|