Yellowstone sequence: Difference between revisions

Content added Content deleted
(Added Forth)
Line 2,407: Line 2,407:
EndIf
EndIf


For j = 1 To i - 1
For j = 0 To i - 1
If @y(j) = k Then Unloop : Continue
If @y(j) = k Then Unloop : Continue
Next
Next
Line 2,430: Line 2,430:
0 OK, 0:670
0 OK, 0:670
</pre>
</pre>

=={{header|VBA}}==
=={{header|VBA}}==
<lang Tcl>
<lang Tcl>