Equilibrium index: Difference between revisions
Added Easylang
m (BASIC256 moved to the BASIC section.) |
(Added Easylang) |
||
| (5 intermediate revisions by 3 users not shown) | |||
Line 994:
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Equilibrium_index#Pascal Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
func[] equind a[] .
for v in a[]
sumr += v
.
for i to len a[]
sumr -= a[i]
if suml = sumr
r[] &= i
.
suml += a[i]
.
return r[]
.
print equind [ -7 1 5 2 -4 3 0 ]
</syntaxhighlight>
{{out}}
<pre>
[ 4 7 ]
</pre>
=={{header|Elena}}==
ELENA
<syntaxhighlight lang="elena">import extensions;
import system'routines;
Line 1,028 ⟶ 1,050:
while(en.next())
{
var element := *en
right -= element;
bool found := (left == right);
Line 1,055 ⟶ 1,077:
}
get Value() = index;
enumerable() => en;
Line 1,063 ⟶ 1,085:
{
EquilibriumEnumerator.new(new int[]{ -7, 1, 5, 2, -4, 3, 0 })
.forEach
}</syntaxhighlight>
<pre>
Line 1,246 ⟶ 1,268:
{{FormulaeEntry|page=https://formulae.org/?script=examples/Equilibrium_index}}
'''Solution'''
[[File:Fōrmulæ - Equilibrium index 01.png]]
In Fōrmulæ, indices are 1-based so the output of this program will be shifted up by one compared to solutions in languages with 0-based arrays.
'''Test cases'''
[[File:Fōrmulæ - Equilibrium index 02.png]]
[[File:Fōrmulæ - Equilibrium index 03.png]]
[[File:Fōrmulæ - Equilibrium index 04.png]]
[[File:Fōrmulæ - Equilibrium index 05.png]]
[[File:Fōrmulæ - Equilibrium index 06.png]]
[[File:Fōrmulæ - Equilibrium index 07.png]]
[[File:Fōrmulæ - Equilibrium index 08.png]]
[[File:Fōrmulæ - Equilibrium index 09.png]]
=={{header|Go}}==
Line 3,025 ⟶ 3,071:
=={{header|Wren}}==
{{libheader|Wren-fmt}}
<syntaxhighlight lang="
var equilibrium = Fn.new { |a|
Line 3,052 ⟶ 3,098:
System.print("The equilibrium indices for the following sequences are:\n")
for (test in tests) {
}</syntaxhighlight>
| |||