Variable declaration reset: Difference between revisions
Add Seed7
SqrtNegInf (talk | contribs) (Added Perl) |
(Add Seed7) |
||
Line 638:
prev: curr
]</lang>
{{out}}
<pre>
3
6
</pre>
=={{header|Seed7}}==
Variables must be declared in the locals section (or as globals) before execution begins, so this whole excercise is moot. There is only one way to write it and it's the way that works.
<lang seed7>$ include "seed7_05.s7i";
const proc: main is func
local
const array integer: s is [] (1, 2, 2, 3, 4, 4, 5);
var integer: i is 0;
var integer: curr is 0;
var integer: prev is 0;
begin
for i range 1 to length(s) do
curr := s[i];
if i > 1 and curr = prev then
writeln(i);
end if;
prev := curr;
end for;
end func;</lang>
{{out}}
<pre>
| |||