Variable declaration reset: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
(Add Seed7) |
||
Line 638: | Line 638: | ||
prev: curr |
prev: curr |
||
]</lang> |
]</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}} |
{{out}} |
||
<pre> |
<pre> |