В заданном списке определить максимальное количество подряд идущих положительных чисел

@Dmitry115 · Регистрация: 12.05.2013

Author24 — интернет-сервис помощи студентам

Нужна помощь с задачей. В заданном списке определить максимальное количество подряд идущих положительных чисел.

@~~Ev_Hyper~~ · 21.06.2015, 14:51

Dmitry115, есть конкретные вопросы или не понимаете как подступиться к задаче?

@Dmitry115 · 21.06.2015, 15:11 **[ТС]**

Совсем не знаю как подступиться

@~~Ev_Hyper~~ · 21.06.2015, 15:11

Dmitry115, как вариант:

F#

let x = [0;-1;0;-2;-3;4;5;0;3;-7;8;9;4]
 
let MaxSeq sp = 
    let rec maxseq acc max lst = 
        match lst with
        |h::t when h > 0     -> maxseq (acc+1) max t
        |h::t when acc > max -> maxseq 0 acc t
        |h::t                -> maxseq 0 max t
        |[]   when acc > max -> acc
        |[]                  -> max
    maxseq 0 0 sp
 
x |> MaxSeq |> printfn "%A"

Код

https://dotnetfiddle.net/SVfyXv

подумайте над оптимизцией

@Dmitry115 · 21.06.2015, 15:19 **[ТС]**

Что скажете про этот код?

F#

open System
 
let spisok = [for i in 1..10 do yield Convert.ToInt32(Console.ReadLine())]
let rec kol s n=
    if s=[] then n
    else if s.Head>0 then kol s.Tail (n+1) else n
   
 
let rec f s1 n1=
    if s1=[] then n1
    else if (kol s1 0>n1) then  f s1.Tail (kol s1 0)  else f s1.Tail n1 
         
printfn "%A" (f spisok (kol spisok 0))

@~~Ev_Hyper~~ · 21.06.2015, 15:31

Сообщение от Dmitry115

Что скажете про этот код?

Dmitry115, запутанный

@pycture · 21.06.2015, 18:50

F#

let MaxSeq (sp : int list) = 
    sp |> List.map sign 
       |> List.fold (fun (h :: t) -> function 1 -> (h + 1) :: t | _ -> 0 :: h :: t) [0]
       |> List.max

В заданном списке определить максимальное количество подряд идущих положительных чисел

Решение

Решение

Решение

@Dmitry115 1 / 1 / 1 Регистрация: 12.05.2013 Сообщений: 7
		1
	В заданном списке определить максимальное количество подряд идущих положительных чисел 21.06.2015, 14:44. Показов 2922. Ответов 6 Метки нет (Все метки) Нужна помощь с задачей. В заданном списке определить максимальное количество подряд идущих положительных чисел. 0

@~~Ev_Hyper~~ Заблокирован
	21.06.2015, 14:51	2
	Dmitry115, есть конкретные вопросы или не понимаете как подступиться к задаче? 0

@Dmitry115 1 / 1 / 1 Регистрация: 12.05.2013 Сообщений: 7
	21.06.2015, 15:11 [ТС]	3
	Совсем не знаю как подступиться 0

@~~Ev_Hyper~~ Заблокирован
	21.06.2015, 15:31	6
	Сообщение от Dmitry115 Что скажете про этот код? Dmitry115, запутанный 0

	21.06.2015, 18:50