Skip to content

Instantly share code, notes, and snippets.

Select-String -path "*.log" -casesensitive -pattern "変数\s+\w+\s+は初期化されていません。|MERGE\s+ステートメントに\s+BY\s+値を繰り返す|(WARNING|ERROR):|^(WARNING|ERROR)" -Encoding default | format-custom -GroupBy filename
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")
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)
}
}
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) )
}
$reg_exp = [string]::join("|", $problematic_msgs)
$target_extension = "log"
$directory = "."
$path = $directory + "\*." + $target_extension
$out_file = "logcheck_result.html"
$head = @'
" インサートモードに入るか、入力を行った最後の時間変数に保存
autocmd! InsertEnter,InsertChange * :let s:last_action_time = localtime()
autocmd! CursorMovedI * :call s:leave_insert_mode() | let s:last_action_time = localtime()
autocmd! InsertCharPre * :call s:leave_insert_mode("call feedkeys('" . v:char . "', 'n')", "let v:char = '' ")
/* 2個の引数を受け取るsomeFuncの定義で一番お勧めなのはどれなんでしょう? */
funcA a b = a * b + (a + b)
a `someFunc` b = a `funcA` b
someFunc a b = funcA a b
someFunc a b = a `funcA` b
a `someFunc` b = funcA a b
module FizzBuzz(fizz, buzz, gizz, hizz) where
-- しよういめ~じ
-- fizzz . buzz . gizz . hizz $ (542, "")
hizz (n, s) = fizzBuzz (n, 9) "Hizz" s
gizz (n, s) = fizzBuzz (n, 7) "Gizz" s
buzz (n, s) = fizzBuzz (n, 5) "Buzz" s
fizz (n, s) = fizzBuzz (n, 3) "Fizz" s
--haskell
foldl (+) 0 $ filter (<5) [1,2,3,4,5,6]
--elixiri
[1,2,3,4,5,6] |> Enum.filter(&(&1 < 5)) |> List.foldl(0, &(&1 + &2))
import Data.List
data Sex = Male | Female deriving (Show, Eq, Ord)
data Customer = Customer{ sex :: Sex, age :: Int } deriving(Show, Eq, Ord)
(|>) :: a -> (a -> b) -> b
x |> f = f x