использовать другие соответствия в некоторых соответствиях

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

            match aver with
                | 1 -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date]),
                            DATEPART(DAY, DT.[Date]),
                            DATEPART(HOUR, DT.[Date]),
                            (DATEPART(MINUTE, DT.[Date]) / 10)"
                | 2 -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date]),
                            DATEPART(DAY, DT.[Date]),
                            DATEPART(HOUR, DT.[Date])"
                | 3 -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date]),
                            DATEPART(DAY, DT.[Date])"
                | 4 -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date])"
                | _ -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date]),
                            DATEPART(DAY, DT.[Date]),
                            DATEPART(HOUR, DT.[Date]),
                            DATEPART(MINUTE, DT.[Date])"

потому что я действительно хочу, чтобы это было похоже на это:

            match aver with
                | 4 -> @" GROUP BY
                            DATEPART(YEAR, DT.[Date]),
                            DATEPART(MONTH, DT.[Date])"
                | 3 -> 2 + @",DATEPART(DAY, DT.[Date])"
                | 2 -> 3 + @",DATEPART(HOUR, DT.[Date])"
                | 1 -> 3 + @", (DATEPART(MINUTE, DT.[Date]) / 10)"
                | _ -> 3 + @", DATEPART(MINUTE, DT.[Date])"

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


f# match
person cnd    schedule 03.03.2011    source источник
comment
Я бы сказал, что вы не должны генерировать SQL таким образом.   -  person OJ.    schedule 03.03.2011
comment
@OJ почему так ... ? Позже мне нужно использовать сгенерированный sql другими способами.   -  person cnd    schedule 03.03.2011
comment
Если вы интегрируете любой пользовательский ввод в сгенерированный SQL, вы уязвимы для атак с внедрением SQL.   -  person wmeyer    schedule 03.03.2011

Ответы (1)


arrow_upward
2
arrow_downward 

let rec myFuncName = function
    | 4 -> @" GROUP BY
                DATEPART(YEAR, DT.[Date]),
                DATEPART(MONTH, DT.[Date])"
    | 3 -> myFuncName 4 + ",DATEPART(DAY, DT.[Date])"
    | 2 -> myFuncName 3 + ",DATEPART(HOUR, DT.[Date])"
    | 1 -> myFuncName 2 + ",(DATEPART(MINUTE, DT.[Date]) / 10)"
    | _ -> myFuncName 2 + ",DATEPART(MINUTE, DT.[Date])"

Не самый эффективный, но он должен продемонстрировать то, что вы ищете.

person ildjarn    schedule 03.03.2011
comment
Вы просили странное, вы получили странное. :) Я бы предпочел ваш исходный код для удобочитаемости. - person Robert Jeppesen; 04.03.2011
comment
Если нет лучшей конструкции, то - да. Я спросил, может быть, я не знаю какой-то регистроподобный синтаксис F#. - person cnd; 04.03.2011