2009/11/11

Lisp写経 文字と数字の関数

文字
スペース等の特殊な文字の入力

#\Space


どんなものがあるかリスト
  • Space
  • Newline
  • Tab
  • Page
  • Return
  • Linefeed
  • Backspace


数字
incf, decf

(incf x) ≡ (setf x (1+ x)) ≡ (setf x (+ x 1))


続きは後で書く
投稿者 時刻: 0 件のコメント:
ラベル:

Lispの今日の写経

Emacs+SlimeのCheetSheetを発見
http://www.pchristensen.com/blog/articles/public-beta-open-for-ultimate-n00b-slimeemacs-cheat-sheet/

やっとEmacsのコピペのやり方覚えた
C-@でマークセットして、M-wで範囲コピーできる
一行だけコピーするにも同じようにやらんといかんのかな


(defvar *test-name* nil)

(defmacro deftest (name parameters &body body)
`(defun ,name ,parameters
(let ((*test-name* ',name))
,@body)))

(deftest test-+ ()
(check (= (+ 1 2) 3)
(= (+ 1 2 3) 6)
(= (+ -1 -3) -4)))

投稿者 時刻: 0 件のコメント:
ラベル: , ,

2009/11/10

Lisp備忘録

今日写経したコード

(defun report-result (result form)
(format t "~:[FAIL~;PASS~] ... ~a~%" result form)
result)

(defmacro with-gensyms ((&rest names) &body body)
`(let ,(loop for n in names collect `(,n (gensym)))
,@body))

(defmacro combine-results (&body forms)
(with-gensyms (result)
`(let ((,result t))
,@(loop for f in forms collect `(unless ,f (setf ,result nil)))
,result)))

(defmacro check (&body forms)
`(combine-results
,@(loop for f in forms collect `(report-result ,f ',f))))

(defun test-+ ()
(check (= (+ 1 2) 3)
(= (+ 1 2 3) 6)
(= (+ -1 -3) -4)))



わからない場所のメモ
* formatの書式

; ~:[偽の場合~;真の場合~]
(format t "~:[FAIL~;PASS~] ... ~a~%" result form)


* loopの書式
ループキーワードというものがある
for, collect, sum, count, do, finally
collectはリストを返すようだ

; in前置詞句
* (loop for var in '(1 2 3 4) collect var)
(1 2 3 4)

; ベクタの場合はinではなくacross
* (loop for x across "abcd" collect x)
(#\a #\b #\c #\d)

;複数指定可能
(loop
for item in list
for n from 1 to 10
do (something))

投稿者 時刻: 0 件のコメント:

2009/11/09

Emacsの備忘録

普段はVimを使用してプログラムやテキストを書いているけど、今はCommon Lispの勉強中でEmacsを利用しているので備忘録

マジックコメント
1行目にshebangがある場合は2行目に書く。

;;; -*- mode: lisp; coding: utf8 -*-


バッファ操作
  • C-x C-f ファイルを開く
  • C-x C-s 保存
  • C-x o 次のbufferに移動
  • C-x 1 分割されているウィンドウを一つにする
  • C-x 2 ウィンドウを分割
  • C-x C-b buffer list表示
  • C-x b buffer名を指定して開く

投稿者 時刻: 0 件のコメント:
ラベル: ,

2009/05/31

Catalyst::View::HTML::Template::Pro

テンプレートにHTML::Template::Proを愛用しているんだけど、
Catalyst::View::HTML::Template::ProがCPANになかったのでC::V::HTML::Templateからcopyして作成した

cpanへの登録はよくわからんのでおいといて、とりあえず外部から取得できるようにgithubで公開。
これで職場で使いたくなっても大丈夫！
投稿者 時刻: 0 件のコメント:
ラベル: , , ,

2009/03/13

Data::ObjectDriverは遅いのか

ネットをうろうろしてて、こんな記事を見つけた
ObjectDriver使えねえ。。

Data::ObjectDriverのあまりの遅さにビックリして自分で同じ機能を書き直したら、速度にして約10倍以上に跳ね上がった。そもそもmemcachedを使わずに裸のDBIでやった方がmemcachedアリのObjectDriverより速いんだから。読み込みループがですよ。すなわち300回実行したら299回はmemcachedを使っている筈のObjectDriverが、300回DBアクセスするDBIより遅いわけ。キャッシュの意味がねぇ(;´Д｀)y-~ 言語を絶する。バカどもは最低でもベンチマーク取ってから人に勧めろよ



2008年10月の記事なので大分古いけど、日本ではDODの使用例とか感想がさっぱりないので気になった。
上の記事にベンチマーク結果もコードも貼ってないので、自分でベンチマークを取ってみた。

MySQL, memcached共にlocalにある環境でbenchmarkを実行し、結果は以下の通り。
ついでなので、DBICも一緒に計測した。DBICでcacheする場合のスマートに書く方法を知らべるのが面倒だったので、愚直に書いた。
_poolが付いているものは、MySQLとの接続を1度しか行わないもの。


Rate  DBIC DBIC_pool  DOD  DBI DOD_MemCached DBI_pool DBIC_MemCached DBI_MemCached
DBIC             435/s    --      -59% -75% -76%          -92%     -95%           -96%          -97%
DBIC_pool       1058/s  143%        -- -40% -41%          -80%     -87%           -89%          -93%
DOD             1751/s  302%       65%   --  -3%          -67%     -78%           -82%          -88%
DBI             1805/s  315%       71%   3%   --          -66%     -77%           -82%          -88%
DOD_MemCached   5263/s 1109%      397% 201% 192%            --     -34%           -47%          -65%
DBI_pool        8000/s 1738%      656% 357% 343%           52%       --           -19%          -46%
DBIC_MemCached  9901/s 2174%      836% 465% 449%           88%      24%             --          -34%
DBI_MemCached  14925/s 3328%     1310% 752% 727%          184%      87%            51%            --


素のDBIよりDOD+memcachedの方が全然早いじゃん。
DBICで透過的にcacheする状態だと、DOD+memcachedのどっちが早いのか気になるところ。


以下にbenchmark用コードを貼っておく

#!/usr/bin/env perl

# 2009/03/13
# MySQL 5.0.27
# memcached 1.2.6
# perl v5.8.8
# Data::ObjectDriver 0.06
# DBIx::Class 0.08012
# Cache::Memcached::Fast 0.14

package DOD;
use strict;
use warnings;
use base qw(Data::ObjectDriver::BaseObject);
use Data::ObjectDriver::Driver::DBI;

__PACKAGE__->install_properties(
{   columns     => [ 'id', 'word', 'text' ],
primary_key => ['id'],
datasource  => 'test',
driver      => Data::ObjectDriver::Driver::DBI->new(
dsn       => 'dbi:mysql:dod',
username  => 'dod',
password  => '',
reuse_dbh => 1,
),
}
);

package DODMemCached;
use strict;
use warnings;
use base qw(Data::ObjectDriver::BaseObject);
use Data::ObjectDriver::Driver::DBI;
use Data::ObjectDriver::Driver::Cache::Memcached;
use Cache::Memcached::Fast;
__PACKAGE__->install_properties(
{   columns     => [ 'id', 'word', 'text' ],
primary_key => ['id'],
datasource  => 'test',
driver => Data::ObjectDriver::Driver::Cache::Memcached->new(
cache => Cache::Memcached::Fast->new(
{ servers => ['localhost:11211'] }
),
fallback => Data::ObjectDriver::Driver::DBI->new(
dsn       => 'dbi:mysql:dod',
username  => 'dod',
password  => '',
reuse_dbh => 1,
),
),
}
);

package DBIC::Schema::Test;
use strict;
use warnings;
use base qw/DBIx::Class/;
__PACKAGE__->load_components("Core");
__PACKAGE__->table("test");
__PACKAGE__->add_columns(
"id",
{   data_type     => "INT",
default_value => undef,
is_nullable   => 0,
size          => 11
},
"word",
{   data_type     => "TEXT",
default_value => undef,
is_nullable   => 0,
size          => 65535,
},
"text",
{   data_type     => "TEXT",
default_value => undef,
is_nullable   => 1,
size          => 65535,
},
);
__PACKAGE__->set_primary_key("id");

package DBIC::Schema;
use strict;
use warnings;
use base qw/DBIx::Class::Schema/;

__PACKAGE__->load_classes(qw/Test/);

package main;
use strict;
use warnings;
use DBI;
use Cache::Memcached::Fast;
use Benchmark qw(cmpthese);
my @connect_info = ( 'dbi:mysql:dod', 'dod', '' );
my $count  = shift || 10_000;
my $pool   = DBI->connect(@connect_info);
my $schema = DBIC::Schema->connect(@connect_info);
my $cache = Cache::Memcached::Fast->new( { servers => ['localhost:11211'] } );

cmpthese(
$count,
{   'DBI' => sub {
my $dbh = DBI->connect(@connect_info);
my $sth
= $dbh->prepare(
'SELECT test.id, test.word, test.text FROM test WHERE id = 1'
);
$sth->execute;
my $row = $sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
},
'DBI_pool' => sub {
my $sth
= $pool->prepare(
'SELECT test.id, test.word, test.text FROM test WHERE id = 1'
);
$sth->execute;
my $row = $sth->fetchrow_hashref;
$sth->finish;
},
'DBI_MemCached' => sub {
my $row = $cache->get('DBI_MemCached-Test-1');
unless ($row) {
my $dbh = DBI->connect(@connect_info);
my $sth
= $dbh->prepare(
'SELECT test.id, test.word, test.text FROM test WHERE id = 1'
);
$sth->execute;
my $row = $sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
$cache->set( 'DBI_MemCached-Test-1', $row );
}
},

'DOD'                => sub { my $row = DOD->lookup(1); },
'DOD_MemCached' => sub { my $row = DODMemCached->lookup(1); },

'DBIC' => sub {
my $s   = DBIC::Schema->connect(@connect_info);
my $row = $s->resultset('Test')->find(1);
},
'DBIC_pool' => sub {
my $row = $schema->resultset('Test')->find(1);
},
'DBIC_MemCached' => sub {
my $row = $cache->get('DBIC_MemCached-Test-1');
unless ($row) {
my $s = DBIC::Schema->connect(@connect_info);
$row = $s->resultset('Test')->find(1);
$cache->set( 'DBIC_MemCached-Test-1', $row );
}
},
}
);
$pool->disconnect;

投稿者 時刻: 0 件のコメント:
ラベル: , , ,

2008/12/25

Catalystを覚えよう

Catalyst: Accelerating Perl Web Application Development
いい加減、CGI::Application(::Dispatch)だけじゃなくて、Catalystも使えるようになりたいの上記の本を購入した。
お金を払ったことで、勉強しなきゃいけない気がしてくるので、怠惰な自分にはよかったかもしれない。

Chapter 3まで読み終って、Chapter 4の途中。
次の土日で写経してみようと思う。

投稿者 時刻: 0 件のコメント:
ラベル: ,
登録: 投稿 (Atom)