Может кто помочь? Функция которая находит индекс наибольшего слова в

Question

Пользователь 61991

Может кто помочь? Функция которая находит индекс наибольшего слова в

строке (к примеру "аа ббб вв а ббб" -> 1

Но не работает (но зато хоть компилируется)

Понимаю что говнокод, но просмотрите хотя бы мельком оцените что не так может быть

Вот код:

let rec findShortRec str currWordIndex maxWordIndex current max =
match str with
| head :: tail -> match head with
| ' ' -> match (current > max) with
| true -> findShortRec tail (currWordIndex + 1) currWordIndex 0 current
| false -> findShortRec tail (currWordIndex + 1) maxWordIndex 0 max
| _ -> findShortRec tail currWordIndex maxWordIndex (current + 1) max
| head :: _ -> if (current + 1 > max) then current else max

let findShort (str : string) = findShortRec (str |> Seq.toList) 0 0 0 0

#backend #dot #programming #russian

0

04.11.2019

1 ответов

17 просмотров

semptra · Accepted Answer

semptra

Вам в F# чат лучше и с кодом сразу в гисте

0

04.11.2019

170 похожих чатов

Может кто помочь? Функция которая находит индекс наибольшего слова в

1 ответов

Похожие вопросы