RosettaCodeData/Task/Factorial/Fortran/factorial-1.f
2023-07-01 13:44:08 -04:00

1 line
37 B
Fortran

nfactorial = PRODUCT((/(i, i=1,n)/))