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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Forward-difference/HicEst/forward-difference-1.hicest
View file

@ -1,12 +0,0 @@
REAL :: n=10, list(n)
list = ( 90, 47, 58, 29, 22, 32, 55, 5, 55, 73 )
WRITE(Format='i1, (i6)') 0, list
DO i = 1, n-1
ALIAS(list,1, diff,n-i) ! rename list(1 ... n-i) with diff
diff = list($+1) - diff ! $ is the running left hand array index
WRITE(Format='i1, (i6)') i, diff
ENDDO
END

10
Task/Forward-difference/HicEst/forward-difference-2.hicest
View file

@ -1,10 +0,0 @@
0 90 47 58 29 22 32 55 5 55 73
1 -43 11 -29 -7 10 23 -50 50 18
2 54 -40 22 17 13 -73 100 -32
3 -94 62 -5 -4 -86 173 -132
4 156 -67 1 -82 259 -305
5 -223 68 -83 341 -564
6 291 -151 424 -905
7 -442 575 -1329
8 1017 -1904
9 -2921