Van Eck sequence: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
Not a robot (talk | contribs) (Add Refal) |
||
| Line 3,306: | Line 3,306: | ||
First 10 terms: 8 0 0 1 0 2 0 2 2 1 |
First 10 terms: 8 0 0 1 0 2 0 2 2 1 |
||
Terms 991 through 1000: 16 183 0 6 21 10 249 0 5 48</pre> |
Terms 991 through 1000: 16 183 0 6 21 10 249 0 5 48</pre> |
||
=={{header|Refal}}== |
|||
<syntaxhighlight lang="refal">$ENTRY Go { |
|||
, <Eck 1000>: e.Eck |
|||
, <First 10 e.Eck>: (e.First10) e.Rest1 |
|||
, <Last 10 e.Eck>: (e.Rest2) e.Last10 |
|||
= <Prout e.First10> |
|||
<Prout e.Last10>; |
|||
}; |
|||
Eck { |
|||
s.N = <Reverse <Repeat s.N EckStep>>; |
|||
}; |
|||
Reverse { |
|||
= ; |
|||
e.X s.I = s.I <Reverse e.X>; |
|||
}; |
|||
Repeat { |
|||
0 s.F e.X = e.X; |
|||
s.N s.F e.X = <Repeat <- s.N 1> s.F <Mu s.F e.X>>; |
|||
}; |
|||
EckStep { |
|||
= 0; |
|||
s.N e.X, e.X: e.F s.N e.R, |
|||
<Lenw e.F>: s.M e.F = <+ s.M 1> s.N e.X; |
|||
s.N e.X = 0 s.N e.X; |
|||
};</syntaxhighlight> |
|||
{{out}} |
|||
<pre>0 0 1 0 2 0 2 2 1 6 |
|||
4 7 30 25 67 225 488 0 10 136</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||