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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Jensens-Device/Icon/jensens-device-1.icon Normal file
View file

@ -0,0 +1,13 @@
record mutable(value) # record wrapper to provide mutable access to immutable types
procedure main()
A := mutable()
write( sum(A, 1, 100, create 1.0/A.value) )
end
procedure sum(A, lo, hi, term)
temp := 0
every A.value := lo to hi do
temp +:= @^term
return temp
end

3
Task/Jensens-Device/Icon/jensens-device-2.icon Normal file
View file

@ -0,0 +1,3 @@
write( sum(A, 1, 100, create |1.0/A.value) )
...
temp +:= @term

6
Task/Jensens-Device/Icon/jensens-device-3.icon Normal file
View file

@ -0,0 +1,6 @@
write( sum{A.value, 1, 100, 1.0/A.value} )
...
procedure sum(X)
...
every @X[1] := @X[2] to @X[3] do
temp +:= @^X[4]