[RC] - Two sum

[Brandon Parker]

Here is a simple example for the Rosetta Code task titled Two sum.

Rosetta Code - Two sum

Here is the code:
myArray(0) = 0
myArray(1) = 2
myArray(2) = 11
myArray(3) = 19
myArray(4) = 90

sum = 21

Print twoToSum$("myArray", sum, 0, 4)
End

Function twoToSum$(arrayName$, targetSum, minElement, maxElement)
   i = minElement : j = maxElement
   While (i < j)
       Select Case
           Case (Eval(arrayName$;"(";i;")") + Eval(arrayName$;"(";j;")")) < targetSum
               i = (i + 1)
           Case (Eval(arrayName$;"(";i;")") + Eval(arrayName$;"(";j;")")) > targetSum
               j = (j - 1)
           Case Else
               twoToSum$ = "[";i;",";j;"]"
               Exit Function
       End Select
   Wend
       twoToSum$ = "[]"
End Function

{:0)

Brandon Parker