aboutsummaryrefslogtreecommitdiff
path: root/challenge-182/roger-bell-west/ruby/ch-1.rb
diff options
context:
space:
mode:
authorRoger Bell_West <roger@firedrake.org>2022-09-12 11:46:01 +0100
committerRoger Bell_West <roger@firedrake.org>2022-09-12 11:46:01 +0100
commitf615f336337319f9054f5e3186c48805dca52ed9 (patch)
treeb0d2eb3e2b2bb152e24707503e814e93bd889f82 /challenge-182/roger-bell-west/ruby/ch-1.rb
parentca56e379b9c196a13c23735062cf2c014e471290 (diff)
downloadperlweeklychallenge-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-xchallenge-182/roger-bell-west/ruby/ch-1.rb31
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