Можете ли вы улучшить этот «алгоритм строк кода» в F#?

Я написал небольшой скрипт для перебора файлов в папках для подсчета строк кода.

В основе скрипта лежит функция подсчета строк пробелов, комментариев и кода. (Обратите внимание, что на данный момент он адаптирован для C# и не знает о многострочных комментариях).

Мне это просто не очень приятно - есть ли у кого-нибудь более чистая версия?

// from list of strings return tuple with count of (whitespace, comments, code)
let loc (arr:List<string>) = 
    let innerloc (whitesp, comment, code) (l:string) = 
        let s = l.Trim([|' ';'\t'|]) // remove leading whitespace
        match s with
        | "" -> (whitesp + 1, comment, code)        //blank lines
        | "{" -> (whitesp + 1, comment, code)       //opening blocks
        | "}" -> (whitesp + 1, comment, code)       //closing blocks
        | _ when s.StartsWith("#") -> (whitesp + 1, comment, code)  //regions
        | _ when s.StartsWith("//") -> (whitesp, comment + 1, code) //comments
        | _ -> (whitesp, comment, code + 1)

    List.fold_left innerloc (0,0,0) arr

c# algorithm f#

06.10.2008 18:06

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

553

Перейти к ответу Данный вопрос помечен как решенный

Ответы 3

Лучшим сайтом для этого может быть рефакторинг - он предназначен именно для этих вопросов.

06.10.2008 18:11

В этом нет ничего плохого, кроме того факта, что вы будете считать одну фигурную скобку с пробелами конечный как код вместо пробелов.

06.10.2008 18:12

Ответ принят как подходящий

Я думаю, что у вас все в порядке, но вот несколько вариантов, чтобы их смешать. (Это решение повторяет вашу проблему игнорирования конечных пробелов.)

type Line =
    | Whitespace = 0
    | Comment = 1
    | Code = 2
let Classify (l:string) =         
    let s = l.TrimStart([|' ';'\t'|])
    match s with        
    | "" | "{" | "}" -> Line.Whitespace
    | _ when s.StartsWith("#") -> Line.Whitespace
    | _ when s.StartsWith("//") -> Line.Comment
    | _ -> Line.Code
let Loc (arr:list<_>) =     
    let sums = Array.create 3 0
    arr 
    |> List.iter (fun line -> 
        let i = Classify line |> int
        sums.[i] <- sums.[i] + 1)
    sums

«Классифицировать» как отдельную сущность может быть полезно в другом контексте.

хм, мне нравится 'type Line', 'Classify' тоже. Возможно, я прочитал слишком много неизменного, но мне не очень нравится использовать массивы, если я могу этого избежать ... но мне нравится, как вы разбили проблему на более мелкие части.

— 07.10.2008 09:44

06.10.2008 20:06