遅延リスト遊び - Emacsで学ぶLazyな世界(前編) - Code Aquarium
（これは、Lisp Advent Calendar 2012の20日目の記事です。） 長いので前後編に分けます。お暇な方はどうぞ。 -*- delayとforce -*- 正格評価の言語でもクロージャがあれば遅延評価を行うことができます。計算式をクロージャに包んでしまえば、クロージャが呼び出されるまで中の式は評価されません。*1 先行評価 (+ 2 3) ;=> 5 遅延評価 (setq p (lambda () (+ 2 3))) ;=> 計算式を包んだクロージャ (funcall p) ;=> 5 遅延評価したい式をいちいちlambdaで包むのは面倒だし、lambdaだけでは「式を遅延評価させたい」という意図が伝わりません。ライブラリにしましょう。 (defmacro delay (expr) `(lambda () ,expr)) (defalias 'force 'funcall)
遅延リスト遊び - Emacsで学ぶLazyな世界(後編) - Code Aquarium
前編に引き続き、使うのはEmacs Lispです。 -*- 遅延リスト -*- ものすごく基本的なことを書きます。 二つのオブジェクトのペアを作る関数consがあります。このペアはドット対とも呼ばれますが、cdr部がnilの場合、真のリスト*1になります。またcdr部が真のリストであるペアもまた真のリストになります。 (setq c (cons 1 2)) ;=> (1 . 2) ;ドット対 (car c) ;=> 1 car部 (cdr c) ;=> 2 cdr部 (setq ls (cons 1 (cons 2 (cons 3 nil)))) ;=> (1 2 3) ;リスト (car ls) ;=> 1 (cdr ls) ;=> (2 3) (car (cdr ls)) ;=> 2 (car (cdr (cdr ls)) ;=> 3 (car (cdr (cdr (cdr ls)))
Clojureでファイルパスの正規化 - Code Aquarium
(def user-home-path (System/getProperty "user.home")) (defn get-canonical-path [^String path] {:pre [path]} (-> (cond-> path (.startsWith path "~") (.replaceFirst "~" user-home-path)) java.io.File. .getCanonicalPath)) ClojureというかJavaの仕様ですが、FileクラスのgetAbsolutePathは相対パス指定 . や .. を展開してくれません。代わりにメソッド getCanonicalPath を使います。 しかし、このメソッドもユーザーホームを表す ~ は正規化してくれませんのでこれに対応するには System Property から取得したユーザーホームパス
(PowerShell)ダイナミックスコープなReduce - Code Aquarium
$1. 関数内再帰関数で Join-Paths 最初にちょっと寄り道。 前回エントリでは、引数を配列にして３つ以上のパス要素連結関数を書きました。 Join-Path 同様に可変長の引数にすることは出来ないでしょうか？ できました。 function Join-Paths{ function rec ([string[]] $paths){ $parent, $rest = $paths if(-not $rest){ $parent }else{ Join-Path $parent (rec $rest) } } rec $args }PS C:\> Join-Paths C: xxx yyy zzz C:\xxx\yyy\zzz仮引数を省略するとすべての引数は暗黙変数 $argsに配列で渡されます。可変長の再帰関数は書けませんが $argsで受けてしまえば配列を要求する関数へ渡すことが
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
