Last list item: Difference between revisions

Line 505:
ind2 = find(List,second)
del(List,ind2)
sum = first + second
add(List,sum)
if len(List) = 1
exit
ok
if n = 1
see nl + "List = "
showArray(List)
see nl
ok
showList(first,second,sum,List)
end
 
see "Last item is: " +List[1] + nl
see "done..." + nl
 
func showList(first,second,sum,List)
see "two smallest is = " + first + " + " + second + " = " + sum + nl
see "List = "
showArray(List)
 
func showArray(array)
txt = ""
see "["
for n = 1 to len(array)
txt = txt + array[n] + ","
next
txt = left(txt,len(txt)-1)
txt = txt + "]"
see txt + nl
</lang>
===With sorting===
<lang>
see "working..." + nl
 
List = [6,81,243,14,25,49,123,69,11]
Temp = []
n = 0
 
x = min(List)
see "min = " + x +nl
 
while true
n++
Temp = sort(List)
first = Temp[1]
second = Temp[2]
ind1 = find(List,first)
ind2 = find(List,second)
if ind1 < ind2
del(List,ind2)
del(List,ind1)
else
del(List,ind1)
del(List,ind2)
ok
sum = first + second
add(List,sum)
2,468

edits