RosettaCodeData/Task/Jensens-Device/Huginn/jensens-device.huginn
2023-07-01 13:44:08 -04:00

15 lines
326 B
Text

harmonic_sum( i, lo, hi, term ) {
temp = 0.0;
i *= 0.0;
i += lo;
while ( i <= hi ) {
temp += term();
i += 1.0;
}
return ( temp );
}
main() {
i = 0.0;
print( "{}\n".format( harmonic_sum( i, 1.0, 100.0, @[i](){ 1.0 / i; } ) ) );
}