slimane

$reg_exp = [string]::join("|", $problematic_msgs)
 
 
$target_extension = "log"
$directory = "."
$path = $directory + "\*." + $target_extension
$out_file = "logcheck_result.html"
 
 
$head = @'

slimane

def matchLine(file: List[String], pattern: String): List[(Int, String)] = {
    val pat = pattern.r
    file.par
        .zipWithIndex
        .withFilter(line, _index => pat.line)
        .flatMap(line, index => ( (index + 1), line) )
}

slimane

def allSeq(c: Collection, p: T => Boolean, removeItemCnt: Int = 0): List[Int] = {
    c.lastIndexWhere(_.p) match{
        case n if n ==  -1 => Nill
        case n             => (n + removeItemCnt + 1)
                                :: allIndex(c.remove(n), removeItemCnt + 1)
    }
}

slimane

def getEncoding(text: String): Option[String] = {
    def checkEncoding(encoding: String): Boolean = {
        try{
            text == new String(text.getBytes(encoding), encoding)
        }catch{
            case NonFatal(_)   => false
            case th: Throtable  => throw th
        }
    }
    List("ascii", "iso-2022-jp", "utf-8", "euc-jp", "sjis", "utf-16")

slimane

Select-String -path "*.log" -casesensitive -pattern "変数\s+\w+\s+は初期化されていません。|MERGE\s+ステートメントに\s+BY\s+値を繰り返す|(WARNING|ERROR):|^(WARNING|ERROR)" -Encoding default | format-custom -GroupBy filename

slimane

import Debug.Trace
fact 0 = 1
fact n = n * fact (n - 1)

superFact 0 = 1
superFact n = superFact' (n', n')
    where
        n' = fact n
        superFact' (_, 0) = 1
        superFact' (n, o) = n^superFact' (n, o - 1)

slimane

ack :: (Integer, Integer) -> Integer
ack (0, n) = n + 1
ack (m, 0) = ack(m - 1, 1)
ack (m, n) = ack(m -1, ack(m, n-1))

ackGuard :: (Integer, Integer) -> Integer
ackGuard (m, n)
    | m == 0    = n + 1
    | n == 0    = ackGuard(m - 1, 1)
    | otherwise = ackGuard(m -1, ackGuard(m, n-1))

slimane

let g:quickrun_config['haxe'] = {
\   'command' : 'haxe'
\   , 'args'   : '-x'
\   , 'cmdopt' : '-main ' . "%{HaxeClssName(expand(\"%S:t:r\"))}"
\   , 'exec'  : "%c %o %a %s:p"
\ }

function! HaxeClssName(word)
    " :rで拡張子が削除されてくれないので関数で対処。後で原因調べて直す
    return substitute(a:word, '^\v.*\ze\.hx', '\u&', '')

slimane

Function REGMATCH(target As String, pattern As String, Optional g As Boolean = False, Optional ignoreCase As Boolean = False, Optional multiLine As Boolean = False) As Boolean
    If Len(pattern) = 0 Then
        REGMATCH = False
        Exit Function
    End If
    
    Dim r As New RegExp
    With r
        .multiLine = multiLine
        .Global = g

slimane

{-
  summary :
    odds比を計算
  detail :
    与えられた群Aと、(全体-群A)との発生率との比を計算
  args :
    total          --全体の数
    incidence      --全体の発生数
    a_total        --群Aの全体数
    a_incidence    --群Aの発生数