Форум » Обработка целых чисел » 17.6071 » Ответить
17.6071
ivackov.sergey: Учитывал, что нумерация +1, однако мой мой ответ: 1935 11935 вместо: 1935 11936 [pre2] ## var s:=ReadAllLines('17-361.txt'); var min40:=s.Select(x->x.ToInteger).Where(x->abs(x) mod 100 = 40).Min; var mx:=-100000; var (k,j):=(0,0); for var i:=0 to s.Length-3 do begin var a:=s[ i].ToInteger; var b:=s[i+1].ToInteger; var c:=s[i+2].ToInteger; var l:=lst(a,b,c); if (l.Distinct.Count=2) and (l.Count(x->x>min40)=3) then begin k+=1; var mx3:=max(a,b,c); if a = mx3 then j:=i+1; if b = mx3 then j:=i+2; if c = mx3 then j:=i+3; mx:=max(mx,mx3); end; end; print(k,j); [/pre2]
Ответов - 4
meeten: К сожалению, Вы не правильно поняли условие или не до конца обдумали поиск максимального порядкового номер элемента, отличного от остальных в данных тройках. Пусть у нас есть список чисел: 10 10 5 4 1. Ваш код выдаст ответ 2. Хотя правильным будет 3.
ivackov.sergey: Понял, спасибо за ответ! Попробую решить так)
s11kai: Если сильно не заморачиваться, то можно написать, примерно так: [pre2] a = [ int(x) for x in open("17-361.txt") ] Min40 = min( int(x) for x in a if abs(x) % 100 == 40 ) count = maxNo = 0 for i in range(len(a)-2): if (a[ i]==a[i+1] and a[ i]!=a[i+2]) or (a[i+1]==a[i+2] and a[i+1]!=a[ i]) or (a[ i]==a[i+2] and a[ i]!=a[i+1]): if a[ i] > Min40 and a[i+1] > Min40 and a[i+2] > Min40: count += 1 maxNo = 2 + i + 1 print( count, maxNo ) [/pre2] # 1935 11936
Ж: Можно так, только надо будет в конце, глядя на вывод программы, понять, что не повторяется третий элемент тройки, значит его номер 11933+2+1 (т.к. еще и нумерация с 1) [pre2] s=[int(c) for c in open('d:/1.txt')] m=min([c for c in s if abs(c)%100==40]) l=[(i,s[i:i+3]) for i in range(len(s)-2) if len(set(s[i:i+3]))==2 and min(s[i:i+3])>m] print(len(l),max(l)) >> 1935 (11933, [-1733, -1733, -33860]) [/pre2]
полная версия страницы