http://yubin-nenga.jp/search/eto/
https://www.microsoft.com/ja-jp/office/pipc/season/nengajo/02.aspx
https://online.brother.co.jp/ot/dl/Contents/nenga/nenga_basic/
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) { |
# | |
# 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 |
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' |
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> |
#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) |
#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))))) |
;; 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)) |
function Join-Namespace { | |
($args | %{$_})-join "." | |
} | |
function Invoke-Apply { | |
$func, $arg = $args | |
Invoke-Expression "$func $arg" | |
} | |
Set-Alias ns Join-Namespace |
(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))) |