diff options
| author | Roger Bell_West <roger@firedrake.org> | 2022-09-12 11:46:01 +0100 |
|---|---|---|
| committer | Roger Bell_West <roger@firedrake.org> | 2022-09-12 11:46:01 +0100 |
| commit | f615f336337319f9054f5e3186c48805dca52ed9 (patch) | |
| tree | b0d2eb3e2b2bb152e24707503e814e93bd889f82 /challenge-182/roger-bell-west/ruby/ch-1.rb | |
| parent | ca56e379b9c196a13c23735062cf2c014e471290 (diff) | |
| download | perlweeklychallenge-club-f615f336337319f9054f5e3186c48805dca52ed9.tar.gz perlweeklychallenge-club-f615f336337319f9054f5e3186c48805dca52ed9.tar.bz2 perlweeklychallenge-club-f615f336337319f9054f5e3186c48805dca52ed9.zip | |
Solutions for challenge #182
Diffstat (limited to 'challenge-182/roger-bell-west/ruby/ch-1.rb')
| -rwxr-xr-x | challenge-182/roger-bell-west/ruby/ch-1.rb | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/challenge-182/roger-bell-west/ruby/ch-1.rb b/challenge-182/roger-bell-west/ruby/ch-1.rb new file mode 100755 index 0000000000..5863f966ea --- /dev/null +++ b/challenge-182/roger-bell-west/ruby/ch-1.rb @@ -0,0 +1,31 @@ +#! /usr/bin/ruby + +require 'test/unit' + +def maxindex(n) + mxv = 0 + mxi = 0 + n.each_with_index do |v, i| + if i == 0 || v > mxv then + mxv = v + mxi = i + end + end + return mxi +end + +class TestMaxindex < Test::Unit::TestCase + + def test_ex1 + assert_equal(2, maxindex([5, 2, 9, 1, 7, 6])) + end + + def test_ex2 + assert_equal(4, maxindex([4, 2, 3, 1, 5, 0])) + end + + def test_ex3 + assert_equal(0, maxindex([4, 2, 3, 1, 4, 0])) + end + +end |
