2006-01-01から1年間の記事一覧

Plagger使ってみた

遅! Perlも久しぶり。こんな感じでいいんかな。 package Plagger::Plugin::CustomFeed::HatenaDiaryReferer; use strict; use base qw( Plagger::Plugin ); use DateTime; use Encode; use HTML::TokeParser; use Plagger::UserAgent; use Plagger::Util qw…

Perlのメソッドチェーンの色付け

Vim

Perlerになろっと。と思ってなんかのソース開いたら$foo->bar->bazの色がひどい(barまでしか色付かない)。あと矢印の色も消す。after/syntax/perl.vim if !exists("perl_no_extended_vars") syn clear perlMethod syn match perlMethod "\(->\)\I\i*"hs=s+2 …

#128 http://acm.uva.es/p/v1/128.html

UVa

昔Compile Errorの理由が分からなくて放置してたやつ。UVaのシステムが変わってて、Compile Errorが出たときはエラーメッセージをメールで送り付けてくれる。これ便利。

#146 http://acm.uva.es/p/v1/146.html

UVa

STLで文字列を逆順にするのってどうするんだろうなぁ。

#145 http://acm.uva.es/p/v1/145.html

UVa

小数点以下を2桁に揃えて出力するには、 #include <iostream> #include <iomanip> using namespace std; ... cout << setiosflags(ios::fixed) << setprecision(2) << x;とやる。</iomanip></iostream>

#144 http://acm.uva.es/p/v1/144.html

UVa

こんなコード書いてたんじゃ使いものにならないなぁと思いつつ。

livedoor Reader

etc

http://unknownplace.org/memo/2006/04/20#e001 ?B, del.icio.usとのインテグレートGreasemonkey Scriptを誰かが作れば完璧

1.28

こんな感じかな。 (define (square x) (* x x)) (define (expmod base ex m) (cond ((= ex 0) 1) ((and (not (= base 1)) (not (= base (- m 1))) (= (remainder (square base) m) 1)) 0) ((even? ex) (remainder (square (expmod base (/ ex 2) m)) m)) (el…

Perl 5.8.8をインストール

# yum install perlしてもPerlのバージョンが上がらない。5.8.0だぞ。 http://www.perl.com/CPAN/src/stable.tar.gz % ./Configure長々と質問が続く。 % make depend % make % make test # make install

libxmlのインストール

# yum install libxml

CPANモジュールのインストール

% perl -MCPAN -e shell Can't locate CPAN.pm in @INC... BEGIN failed--compilation aborted.ほうほう。 http://www.perl.com/CPAN/modules/by-module/CPAN/CPAN-1.87.tar.gz % perl Makefile.PL % make # make install % perl -MCPAN -e shell ...いろい…

何か足りないと思ったら

etc

del.icio.us/inbox/ma.la はsubscribeしてたのに del.icio.us/ma.la をsubscribeしてなかった。2ヶ月くらい。

RMagick

Rubyで画像を扱うライブラリ。ImageMagickを使う。 参考: http://pub.cozmixng.org/~the-rwiki/rw-cgi.rb?cmd=view;name=RMagick ImageMagickのインストール http://www.imagemagick.org/script/install-source.php % ./configure --enable-shared % make # …

遅延適用演算子 ($)

f $ x = f x これは map ($ 0) xs あるいは zipWith ($) fs xs など のような高階関数を使う場面でも有用である。 つまり Prelude> zipWith ($) [(1+),(2*),sqrt] [1,2,3] [2.0,4.0,1.7320508075688772]これは便利そう。

コマンドの出力結果を変数に格納

VAR = $(shell ...)

画像への直リンク対策

海外の掲示板からリファラが飛んでて、俺大人気じゃんと思ったら画像へのアクセスだった。 RewriteEngine On RewriteCond %{HTTP_REFERER} ^http://www.ratiatum.com/ [OR] RewriteCond %{HTTP_REFERER} ^http://www.juvepoland.com/ RewriteRule foobar2000…

CSSファイルの色を編集中に表示する

Vim

http://la.ma.la/blog/diary_200603121544.htm 萌ディタいいなぁ。Vimスクリプトなんて書く気にならないもんな。 それでもやってみる。 とりあえず人に見せられる?形に。Vim6で使えるようにする気力はついに出なかった。

tickの例でStateモナドの動きを覗いてみる

参考: http://www.haskell.org/hawiki/MonadState newtype State s a = State { runState :: (s -> (a, s)) } instance Monad (State s) where return a = State $ \s -> (a, s) x >>= f = State $ \s -> let (v, s') = runState x s in runState (f v) s' c…

mimeTeXのインストール

http://www.forkosh.com/mimetex.zip % gcc -DAA mimetex.c gifsave.c -lm -o mimetexちょう簡単だった。TeXを呼び出してるんだと思ってたけど実は内部で全部やってるらしい。 lighttpd.confに cgi.assign = ( ..., ..., "mimetex" => "" )と追加しておくと…

#142 http://acm.uva.es/p/v1/142.html

UVa

問題文をよく読もう。

#141 http://acm.uva.es/p/v1/141.html

UVa

動的に二次元配列を作るには vector< vector<bool> > board(n, vector<bool>(n, false));でOKらしい。この書き方したらboard[i]が全部同一のものになると勝手に思い込んでた…。</bool></bool>

"+mzscheme"でVim7をコンパイル・インストール

Vim development : vim online % cvs -z3 -d:pserver:anonymous@cvs.sf.net:/cvsroot/vim checkout vim7Makefileを編集。こんなんでいいのかな。 % diff Makefile.bak Makefile -u --- Makefile.bak 2006-03-01 22:41:39.000000000 +0900 +++ Makefile 2006-…

時間がかかる作業が終わったらベル

make; echo ^G 便利だった。^GはControl-V Control-G.

MzSchemeをインストール

"PLT Scheme", "DrScheme", "MzScheme"と三つの言葉が目に入って混乱した。 PLT Scheme is an umbrella name for a family of implementations of the Scheme programming language. ... DrScheme is the primary PLT Scheme implementation. ... MzScheme i…

vim7で括弧の対応が強調表示できるようになってる

Vim

詳細は:h matchparen.これでvimでもLisp/Schemeのコードが弄りやすくなるなぁ。

LOAD DATA INFILE ...

を実行するには GRANT FILE ON *.* TO ...が必要なのかな。

Gaucheの最新版を入れる

Sourceforgeから(使い方のよくわからない)CVSで取ってくる。http://sourceforge.net/cvs/?group_id=25227の説明どおりに、 % cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/gauche login % cvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvs…

WiLikiのプレビューがおかしくなる問題:解決

ついに分かった。 Gaucheのcgi-headerを使うと、(tree->string (cgi-header))は"Content-type: text/html\n\n"となるけど、これが間違いで本当は"Content-type: text/html\r\n\r\n"でないといけない。(マニュアルでは正しい結果を返すようになってる。一番新…

WiLikiのプレビューがおかしいのを直す(はやく) 解決。 凸包(Graham's Scan) はてなWordLink サービス終了のお知らせ よくわかんない。 text.hatena Kahua

日本語版買った

勉強会に向けて。所有欲とかが満たされる。計算機プログラムの構造と解釈作者: ジェラルド・ジェイサスマン,ジュリーサスマン,ハロルドエイブルソン,Gerald Jay Sussman,Julie Sussman,Harold Abelson,和田英一出版社/メーカー: ピアソンエデュケーション発…