tests/ruby/common/src/lists.ruby

#!/usr/local/bin/ruby
# -*- mode: ruby -*-
# $Id: lists.ruby,v 1.3 2003/12/30 01:25:05 davidw Exp $
# http://www.bagley.org/~doug/shootout/

# END COMMENT
SIZE = Integer(ARGV.shift || 1)

def test_lists()
    # create a list of integers (Li1) from 1 to SIZE
    li1 = (1..SIZE).to_a
    # copy the list to li2 (not by individual items)
    li2 = li1.dup
    # remove each individual item from left side of li2 and
    # append to right side of li3 (preserving order)
    li3 = Array.new
    while (not li2.empty?)
	li3.push(li2.shift)
    end
    # li2 must now be empty
    # remove each individual item from right side of li3 and
    # append to right side of li2 (reversing list)
    while (not li3.empty?)
	li2.push(li3.pop)
    end
    # li3 must now be empty
    # reverse li1 in place
    li1.reverse!
    # check that first item is now SIZE
    if li1[0] != SIZE then
	p "not SIZE"
	return(0)
    end
    # compare li1 and li2 for equality
    if li1 != li2 then
	return(0)
    end
    # return the length of the list
    return(li1.length)
end

result = test_lists()
print result, "\n"