aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-12-16 21:33:55 -08:00
parent 35bcdeebf8
commit 74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Jensens-Device/Euler/jensens-device.euler
View file

@ -1,17 +0,0 @@
begin
new i; new sum;
sum <- ` formal i; formal lo; formal hi; formal term;
begin
new temp; label loop;
temp <- 0;
i <- lo;
loop: begin
temp <- temp + term;
if [ i <- i + 1 ] <= hi then goto loop else 0
end;
temp
end
';
out sum( @i, 1, 100, `1/i' )
end $

14
Task/Jensens-Device/Sidef/jensens-device.sidef
View file

@ -1,9 +1,9 @@
var i;
var i
func sum (i, lo, hi, term) {
var temp = 0;
var temp = 0
for (*i = lo; *i <= hi; (*i)++) {
temp += term.run;
};
return temp;
};
say sum(\i, 1, 100, { 1 / i });
temp += term.run
}
return temp
}
say sum(\i, 1, 100, { 1 / i })