Ruby/Практикум/Итераторы

Материал из Викиучебника — открытых книг для открытого мира

Итераторы[править]

Дан целочисленный массив. Найти количество чётных элементов.[править]

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.select{ |i| i.even? }.size

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.select{ |i| i%2 == 0 }.size

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.select{ |i| i[0].zero? }.size

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.find_all{ |i| i%2 == 0 }.size

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.inject(0){ |sum, i| (i%2 == 0) ? (sum+1) : sum }

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.count{ |i| i.even? }

Замечания по решению: Ruby 1.9.1

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.delete_if{ |i| i.odd? }.size

Замечания по решению:

Дано натуральное число. Необходимо проверить, является ли оно совершенным.[править]

Возможное решение:

m = 20
a = Array.new(m-1){ |i| i+1 }
b = a.select{ |x| m % x == 0 }
p( b.inject(0){ |result,elem| result+elem } == m )

Замечания по решению:


Возможное решение:

n=8128
n1=0
(1...n).each{|d| n1+=d if n%d==0}
p n==n1

Замечания по решению:


Возможное решение:

def is_perfect(num)
  ((1...num).to_a.select {|n| num%n == 0}).reduce(:+) == num
end

Замечания по решению:

Дан целочисленный массив. Найти количество его локальных максимумов.[править]

Возможное решение:

m = [1,2,3,2,3,4,2,4,6,7]
p( (1..m.size-2).to_a.select{ |i| (m[i] > m[i-1])&&(m[i] > m[i+1]) }.size )

Замечания по решению:



Возможное решение:

maccuB = [4, 8, 6, 5, 1, 2, 3, 5, 4, 8, 9, 6]
p (1...maccuB.size-1).select{ |x| (maccuB[x] > maccuB[x-1])&&(maccuB[x] > maccuB[x+1]) }.size

Замечания по решению:


Возможное решение:

require 'enumerator'
m = [1,2,3,2,3,4,2,4,6,7]
cnt=0
m.each_cons(3){|a,b,c| cnt+=1 if a<b and b>c}
p cnt

Замечания по решению:

Дан целочисленный массив. Проверить, чередуются ли в нем положительные и отрицательные числа.[править]

Возможное решение:

m = [5, -12, 5, -12, 9, -25]
p (1...m.size-1).all?{ |i| ((m[i-1] < 0) && (m[i+1] < 0)) || ((m[i-1] > 0) && (m[i+1] > 0)) }

Замечания по решению: тут ошибка - не работает для полностью положительного или полностью отрицательного массива. Не хватает проверки текущего значения:

((m[i] > 0) && (m[i-1] < 0) && (m[i+1] < 0)) || ((m[i] < 0) && (m[i-1] > 0) && (m[i+1] > 0))


Возможное решение:

maccuB = [1, -2, 5, -4]
p (0..maccuB.size-2).all?{ |x| (maccuB[x] * maccuB[x+1]) < 0 }

Замечания по решению:


Возможное решение:

array = [1,-2,3,-4]
(0..array.size - 1).all? { |i| (array[0] < 0) ? (i.even? ? array[i] < 0 : array[i] >= 0 ) : (i.even? ? array[i] >= 0 : array[i] < 0) }

Дан целочисленный массив и отрезок a..b. Необходимо найти элементы, значение которых принадлежит этому отрезку.[править]

Возможное решение:

m = [1, 2, 3, 4, 5]
ab = (3..5)
p m&ab.to_a

Замечания по решению:

Возможное решение:

m = [1, 2, 3, 4, 5]
ab = (3..5)
p m.select{ |i| ab.include?( i ) }

Замечания по решению:

Возможное решение:

m = [1, 2, 3, 4, 5]
a = 1
b = 20
p m.select{ |x| x>=a && x<=b }

Замечания по решению:

Возможное решение:

m = [1, 2, 3, 4, 5]
a,b = 2,5
p ( m - (m - ((a..b).to_a)) )

Замечания по решению:

Дано число А и натуральное число N. Найти результат следующего выражения 1 + А + А*2 - А*3 + … + ((-1)**N)*А*N.[править]

Возможное решение:

A,N = 5,7
diapazon = 4..N
p diapazon.inject(1 + A + A*2 - A*3){ |sum,i| sum + (-1**i)*A*i }

Замечания по решению: в данном решение допущена серьёзная ошибка. Приоритет у операции ** (возведение в степень) выше чем у операции -. поэтому сначала 1**i, а затем результат берётся с другим знаком. фрагмент кода следует заменить на { |sum,i| sum + ((-1)**i)*A*i }

Ошибка была допущена еще в задании - не хватало тех же скобок, поправил. Кроме того, похоже что перед А должен стоять "-" чтобы последовательность сохранялась, ну да ладно - покупатель всегда прав.

Дано вещественное число R и массив вещественных чисел. Найти элемент массива, который наиболее близок к данному числу.[править]

Возможное решение:

R,macc = 13.0, [3.1, 7.2, 10.3, 15.5]
macc = macc.sort
b = macc.select{ |i| i<R }
c = macc.select{ |i| i>R }
d = b.max
e = c.min
if (R-d) > (e-R)
  puts e 
else
  puts d 
end

Замечания по решению:



Возможное решение:

a, R = [1.2,2.5,3.1,4.3,2.1,3.6,5.7], 4.0
p a.sort_by{ |i| (i-R).abs }[0]

Замечания по решению: Не полностью верное решение!При нескольких равноудаленных элементах выводится только одно значение!

В принципе задачи по нахождению мин или макс в массиве предполагают находить хотя бы одно соответствующее решение. Задание: "Найти элемент!!! массива".


Возможное решение:

R,arr = 13.0, [3.1, 7.2, 10.3, 10.6, 15.5]
require 'enumerator'
arr.each_cons(2){|a,b| if a <=R and b>=R then if R-a<=b-R then p a else p b end end}

Замечания по решению: неправильно и не читабельно, насколько я понял, ошибка в том что не дописан else для первого if.

Возможное решение:

arr, a = [ 1.3, 1.51, 1.46, 0.33, 2.45 ], 1.48
arr.map! { |l| (l-a).abs }.index(arr.min)

Замечания по решению: неточность - нужно найти элемент массива, а не его индекс
Замечания по решению: находится индекс минимальной разницы в массиве разниц

Возможное решение:

R,m = 13.0, [3.1, 7.2, 10.3, 15.5]
dif = m.map{|elem| (R - elem).abs}
p m[dif.index(dif.min)]

BlindMan (обсуждение) 22:12, 28 сентября 2012 (UTC)

Возможное решение:

arr_f = Array.new(100){|x| x = rand(0.0 .. 1.5)}
r = rand(0.0 .. 1.5)
val = 0
n = (arr_f[0] - r).abs
for i in 0..arr_f.length-1
 (arr_f[i]-r).abs < n ? (val = arr_f[i]; n = (arr_f[i]-r).abs) : n   
end
print("---Наболее близкое значение к  #{r} это #{val}  ", "\n")

Дан целочисленный массив. Необходимо найти максимальный нечетный элемент.[править]

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.select{ |i| i.odd? }.max

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p( a.select{ |i| i%2 == 1 }.max )

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6, 7, 8]
p a.reject{ |i| i.even? }.max

Замечания по решению:

Дано целое число. Необходимо найти все натуральные делители этого числа.[править]

Возможное решение:

a = 12
b = (1..a)
p( b.select{ |n| (a%n==0) } )

Замечания по решению:



Возможное решение:

n = 20
mas = (1..n).to_a
p( mas.find_all{ |x| x%n == 0 } )

Замечания по решению:

Решение аналогично предыдущему, find_all - синоним select; переводить диапазон в массив - лишнее.

Дан целочисленный массив. Вывести индексы элементов, которые меньше своего левого соседа, и количество таких чисел.[править]

Возможное решение:

m = [5, 4, 1, 3, 2, 7, 0, 1, 7]
temp = (1...m.size).select{ |x| m[x] < m[x-1] }
p temp, temp.size

Замечания по решению:

Дан целочисленный массив и отрезок a..b. Необходимо найти количество элементов, значение которых принадлежит этому отрезку.[править]

Возможное решение:

m = [1, 2, 3, 4, 5]
ab = (3..5)
p m.count{ |i| ab === i }

Замечания по решению:

Возможное решение:

m = [1, 2, 3, 4, 5]
a,b = 3,5
m.select{ |i| (a..b).include?( i ) }.size

Замечания по решению:

Возможное решение:

m = [1, 3, 4, 5, 6, 9, 3]
indd = 0..m.size-1
a,b = 3,7
p indd.select{ |n| (m[n] >= a)&&(m[n] <= b) }.size

Замечания по решению:

Возможное решение:

m = [10,1,51,12,14,100]
s = (1..10)
p m.select{|i| s === i}.length

Замечания по решению:

Дан целочисленный массив. Необходимо вывести вначале его элементы с четными индексами, а затем - с нечетными.[править]

Возможное решение:

m = [1,2,3,4,5,6,7]
s = (0..m.size-1).to_a
p s.partition{ |i| i[0].zero? }.flatten.map{ |i| m[i] }

Замечания по решению:



Возможное решение:

a = [1,2,3,4,5,6]
(0...a.size).partition{ |x| x%2 == 0 }.flatten.map{ |x| a[x] }

Замечания по решению:



Возможное решение:

arr = [3, 7, 10, 6, 15]

p arr.partition{|e| arr.index(e)%2 == 0}

Замечания по решению: Решение неверно: дает неверный результат в массиве с несколькими одинаковыми числами.


Возможное решение:

m = [1,2,3,4,5,6,7,8,9,10]
0.step(m.size-1, 2){|i| print "#{m[i]} " }
1.step(m.size-1, 2){|i| print "#{m[i]} " }

Замечания по решению:


Возможное решение:

a = [7,0,4,6,0,3,6,9,0]
(0...a.size).each { |i| i.odd? a.push(a.delete_at(i)) }

Замечания по решению: - не правильное решение, i.odd? проверяет индексы от а, а в этот момент a.delete_at(i) уже изменил массив, уменьшив его на один элемент


Возможное решение: к чему сложности...

arr = Array.new(100){|x| x = rand(0..100000)}
even_ ={}; noeven_= {}
for i in 0 .. arr.length-1
    i.even? ? even_[i] = arr[i] : noeven_[i] = arr[i]             
end
print(even_,"\n", noeven_, "\n")

Дан целочисленный массив. Необходимо найти минимальный четный элемент.[править]

Возможное решение:

a = [1, 2, 3, 4, 5]
p a.select{ |i| i.even? }.min

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5]
p a.reject{ |i| i.odd? }.min

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5]
p a.select{ |i| i[0] == 0 }.min

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5]
p a.select{ |i| i%2 == 0 }.min

Замечания по решению:

Дан целочисленный массив. Найти среднее арифметическое модулей его элементов.[править]

Возможное решение:

a = [1, 2, 3, 4, 5]
p (a.inject(0){ |sum, i| sum + i.abs }.to_f) / a.size

Замечания по решению:

Возможное решение:

mac = [1, 2, 3, 4, 5]
d = mac.size
jopa = mac.map{ |jo| jo.abs }
j = jopa.inject(0){ |c,jo| c+jo }
j/d

Замечания по решению:

Дан целочисленный массив. Найти все элементы, которые меньше среднего арифметического элементов массива.[править]

Возможное решение:

a = [1, 2, 3, 4, 5]
b = a.inject(0){ |b,c| b + c }.to_f / a.size
a.select{ |i| i < b }

Замечания по решению:

Возможное решение:

a = [1, 2, 3, 4, 5, 6]
b = a.inject(:+).to_f / a.size
a.select{ |i| i < b }

BlindMan (обсуждение) 12:00, 29 сентября 2012 (UTC)

Дан целочисленный массив. Необходимо найти количество минимальных элементов.[править]

Возможное решение:

a = [1, 1, 1, 2, 3, 4]
p a.count{ |i| i == a.min }

Замечания по решению:

Возможное решение:

m = [1, 1, 1, 2, 3, 4]
a = m.min
b = m.select{ |i| i == a }
p b.size

Замечания по решению:

Возможное решение:

m = [1, 2, 3, 4, 5]
p m.select{ |x| x == m.min }.size

Замечания по решению:

Дано число А и натуральное число N. Найти результат следующего выражения 1 + А + А*2 + А*3 + … + А*N.[править]

Возможное решение:

A,N = 10,15
p (1..N).inject(1){ |s,i| s+A*i }

Замечания по решению:



Возможное решение:

A,N = 20,15
(0..N).map{ |x| x*A }.inject(1){ |x,y| x+y }

Замечания по решению:



Дано натуральное число n. Необходимо найти число n!!, где n!! = 1*3*5*...*n для нечетного n и n!! = 2*4*6*...*n для четного.[править]

Возможное решение:

n = 15
maccuB = (1..n).to_a
maccuB = maccuB.partition{ |i| i[0].zero? }[ n%2 ]
p( maccuB.inject(1){ |result,elem| result*elem } )

Замечания по решению:



Возможное решение:

n = 23
a = (1..n).to_a
p( a.partition{ |x| x%2 == 0 }.select{ |x| x.index( a[-1] ) }.flatten.inject(1){ |rez,x| rez*x } )

Замечания по решению:



Возможное решение:

n=7
product=1
n.step(1,-2){|v| product*=v}
p product

Замечания по решению: вот это красота! Только лучше .inject(:*) для произведения использовать



Возможное решение:

n = 11
p (1..n).inject(1){|pr,e| pr= (e%2 ==n%2)? pr*e : pr}

Замечания по решению:

Дан целочисленный интервал a..b. Необходимо найти произведение кубов всех нечетных чисел в этом интервале.[править]

Возможное решение:

ab = (2..6)
p ab.inject(1){ |pr, i| pr = i.odd? ? pr*(i**3) : pr }

Замечания по решению:

Возможное решение:

a,b = 4,19
p( (a..b).to_a.select{ |i| i[0]==1 }.map{ |elem| elem**3 }.inject(1){ |pe3yJIbTaT,nepemeHHa9| pe3yJIbTaT*nepemeHHa9 } )

Замечания по решению:

Дан массив чисел. Необходимо проверить, чередуются ли в нем целые и вещественные числа.[править]

Возможное решение:

m = [1, 2.5, 3, 3.5, 4, 4.5]
p s = (1...m.size-1).all?{ |i| (m[i-1]*m[i]).integer? == (m[i+1]*m[i]).integer? }

Замечания по решению:

неоднозначное решение, предлагаю ниже своё решение


Возможное решение:

array=[1.1,1,2.2,3,7.5]
int=array[0].integer? ? 0 : 1
p array.partition{|v| v.integer?}.flatten==(0..array.size-1).partition{|i| (i+int)[0].zero?}.flatten.map{|i| array[i]}

Замечания по решению:


Возможное решение:

arr = [1, 2.5, 3, 3.5, 5, 4.5]

tmp = arr.partition{|e| arr.index(e)%2==0}
p tmp.select{|e| e.all?{|el| el.to_s.include? '.'}}.size==1

Замечания по решению:

Возможное решение:

array=[1.1,1,2,3,7.5]
p array.map!{|i| i.integer? ? 0 : 1}.all?{|i| array[i]!=array[i+1]}

Замечания по решению:

Дан целочисленный массив и интервал a..b. Необходимо найти сумму элементов, значение которых попадает в этот интервал.[править]

Возможное решение:

m = [1, 2, 3, 4, 5, 6, 7, 8]
ab = (3..5)
p m.select{ |i| ab === i }.reduce(:+)

Замечания по решению:

Возможное решение:

m = [1, 3, 7, 8, 9]
a = 1
b = 8
p m.select{ |i| (a..b).include?(i) }.inject(0){ |s,i| s+i }

Замечания по решению:

Возможное решение:

arr = [1, 5, 3, 7, 4, 8]
a,b=3,7
p arr.inject(0){|s,e| s= (a..b).include?(e) ? s+e : s}

Замечания по решению:

Дан целочисленный массив. Необходимо вывести вначале его положительные элементы, а затем - отрицательные.[править]

Возможное решение:

a = [1, 2, -3, 3, 7, -4, 6]
p a.sort.reverse

Замечания по решению:

Возможное решение:

a = [5, -3, 6, 0, -6]
p a.partition{ |i| i >= 0 }.flatten

Замечания по решению:

Возможное решение:

a = [1, -1, 3, 0, 5, -7]
k = a.select{ |i| i >= 0 }
s = a.select{ |i| i < 0 }
p k + s

Замечания по решению:

Возможное решение:

array1 = [1, -2, 3, -4, 5, -6]
array2 = array1.find_all{ |elem| elem >= 0 }
array3 = array1.find_all{ |elem| elem < 0 }
p array2 + array3

Замечания по решению: Дятел