Skip to content

Instantly share code, notes, and snippets.

View mnzk's full-sized avatar

mnzk mnzk

1 follower · 0 following
View GitHub Profile
@mnzk
mnzk / Nengajou.ps1
Last active July 2, 2020 09:15
PowerShell (V3) と iTextSharpで年賀状宛名印刷用PDFを作成
Set-Alias new New-Object
Set-Alias aps New-ApplyContext
Set-Alias use New-DisposeOnLeaveContext
# iTextSharp アセンブリロード
[System.Reflection.Assembly]::LoadFile | aps {
ls S:\libs\itextsharp-all-5.4.4\*.dll
} > $null
function first ([ScriptBlock]$Body) {
@mnzk
mnzk / PowerShell_ODAC.ps1
Last active September 4, 2019 23:04
Example Of PowerShell (V3) & Oracle Data Access Components & ADO.net DbProviderFactory
#
# PowerShell (v3.0) + ODAC (and ADO.net)
#
function Load-DbProviderFactory([ScriptBlock[]]$loaders){
$fa = $loaders | foreach {
try{
(& $_)| ? {$_ -is [System.Data.Common.DbProviderFactory]}
}catch{}
} | Select -First 1
@mnzk
mnzk / csv-bnf-rfc4180.txt
Created April 20, 2013 13:44
CSV BNF (RFC4180) for instaparse
file = [header CRLF] record (CRLF record)* [CRLF]
header = name (COMMA name)*
record = field (COMMA field)*
name = field
field = (escaped | non-escaped)
escaped = DQUOTE (TEXTDATA | COMMA | CR | LF | 2DQUOTE)* DQUOTE
2DQUOTE = DQUOTE DQUOTE
non-escaped = TEXTDATA*
COMMA = '\u002C'
CR = '\u000D'
@mnzk
mnzk / addr.py
Last active October 19, 2017 08:45
template ='''
<html lang="ja">
<head>
<meta charset="UTF-8" />
<title>CANVAS001</title>
<link rel="stylesheet" type="text/css" href="v.css">
</head>
<body>
<div class="box-layer-1">
<div class="box box-left"><div class="from-blank-box"></div><div class="from-name vertical">蜿､隹ｷ謨ｬ騾�</div><div class="from-address vertical">蜊玲袷邱丞ｸら區豬懃伴譬ｹ譛ｬ荳€蜈ｫ荳€荳€</div><div class="from-post-number">2950104</div></div>
@mnzk
mnzk / nenga.md
Created December 24, 2016 08:42
@mnzk
mnzk / solve24.rkt
Last active June 4, 2016 21:42
#lang racket
(require (only-in srfi/26 cute))
(define-syntax t>=
(syntax-rules ()
((_ x) x)
((_ x f g ...) (t>= (f x) g ...))))
(define (solve24 n)
@mnzk
mnzk / lazy-perm.rkt
Created June 2, 2016 16:47
#lang racket
(for ((lst (in-permutations (range 10)))
(i (in-range 5)))
(displayln `(,i ,lst)))
(require racket/generator)
(let ((g (sequence->generator (in-permutations (range 10)))))
@mnzk
mnzk / fzbz.hy
Last active January 2, 2016 07:09
;; hy-lang fizzbuzz
(import [itertools [count imap]])
(import [pprint [pprint]])
(defn freq [v n]
(->> (* [""] (dec n)) (+ [v])))
(defn fizzbuzz []
(->> (imap (fn [f b n] (or (+ f b) n))
@mnzk
mnzk / NsShortcut.ps1
Created November 11, 2013 12:42
function Join-Namespace {
($args | %{$_})-join "."
}
function Invoke-Apply {
$func, $arg = $args
Invoke-Expression "$func $arg"
}
Set-Alias ns Join-Namespace
@mnzk
mnzk / lets-macrolet.el
Last active December 18, 2015 22:59
(require 'cl)
(macrolet ((hook (&body exprs)
`(add-hook 'groovy-mode-hook
'(lambda () ,@exprs))))
(hook (require 'groovy-electric)
(groovy-electric-mode)
(linum-mode 1)
(paredit-mode 1)
(guru-mode 1)))