円周率1,000,000桁で各数字が等確率で出現するか問題

0から9の各数字が、円周率1000桁に等確率で出現するかを仮説検定してみる 一般に、 ある属性Aによって、n個の個体がk種のカテゴリー へ分類されるとき 各カテゴリーへ属する観測度数が であるとする これが、各カテゴリーの理論確率 に適合するかを見るには…

Rの練習

R

Stanford ML Classの練習問題をHaskellで解く... と思ったけどex1の線形回帰はRで一発ぽいのでパス。適当にやったら線引けたので終了。

リハビリ

「Web+DB vol.66 きっちりわかるアルゴリズム」の「埋め込み性的辞書による圧縮アルゴリズム」をHaskellで module Main where type Dict = [(String, String)] dict :: Dict dict = [ ("http", "'") , (".jp", "|") , ("www", ">") , (".co", "<") , ("html"…

統計勉強する

今日から統計とかRとかやる ネタはRによるやさしい統計学作者: 山田剛史,杉澤武俊,村井潤一郎出版社/メーカー: オーム社発売日: 2008/01/25メディア: 単行本購入: 64人 クリック: 782回この商品を含むブログ (68件) を見るはじめての統計学作者: 鳥居泰彦出…

AnyEventの練習

噂のsleepsort書いてみた。AnyEvent->timer の戻り値捨てると動かないんだなぁとか。 #!/usr/bin/env perl use strict; use warnings; use Data::Dumper; use AnyEvent; sub sleepsort { my (@args) = @_; my $cv = AnyEvent->condvar; my (@sorted, @timers…

Perlのsystem()に@_を渡せなくてハマった。と思ったら単純ミス。

背景 コマンドラインで動くPerlのプログラムをTDDで作ろうと思い、同じくコマンドラインプログラムであるApp::cpanminusのテストの書き方を真似して書いていた。 問題 でもユーティリティ関数で呼んでいるsystem()に引数が渡らない!なぜ!><単純化すると…

memcached

You can enable memcached to automatically load on login with: mkdir -p ~/Library/LaunchAgents cp /usr/local/Cellar/memcached/1.4.5/com.danga.memcached.plist ~/Library/LaunchAgents/ launchctl load -w ~/Library/LaunchAgents/com.danga.memcach…

[perl][memo] Task::BeLike::*

Task::BeLike::BINGOS Task::BeLike::RJBS Task::BeLike::FLORA Task::BeLike::Tokuhirom http://www.youtube.com/watch?v=FYyxBJrluFk

constant.pm は遅い?ベンチマーク取ってみた

base.pm のソース眺めてたら constant.pm は遅いからと自前でインライン関数(?)を定義していた。 # constant.pm is slow sub SUCCESS () { 1 } sub PUBLIC () { 2**0 } sub PRIVATE () { 2**1 } sub INHERITED () { 2**2 } sub PROTECTED () { 2**3 } で、…

さくらのレンタルサーバーへのssh接続がすぐ切られる問題の対処

これでよさげ % cat ~/.ssh/config Host * ServerAliveInterval 600 # 10分 参考 Ubuntu Server セットアップ備忘録 (18) - SSH 接続が NAT に切られないようにする - kamicupの備忘録 追記 あれ?これじゃだめかも?

MySQLで文字化け@さくらレンタルサーバー

MySQL + Perl + DBIx::Class Databaseの文字エンコーディングをUTF-8 各テーブルのエンコーディングもUTF-8 それでも化ける模様。 以下の設定が必要。 my $connect_info = ['dbi:mysql:dbname:hostname', 'username', 'password']; my $schema = MySchema->c…

MySQLでデータのexport/import

ハマったのでメモ。(ローカルからさくらのレンタルサーバーにデータを移すとき) # Export (local): mysqldump dbname table1 table2 ... > dump.sql # Import (sakura): mysql -u username --password=password -D dbname -h hostname < dump.sql

"no moose"とtypoすると(mが小文字)、警告が大量に出る件

Moose使ってて、何か警告いっぱい出るようになったなぁと思ったらタイポして "no moose" なんてやってただけだった。エラーにはならないから見逃しがち。(いや警告もちゃんと直しましょう) 出てた警告: Subroutine throw_error redefined at /Users/naoto/pe…

CSSの勉強(あるいはパクリ)用サイトメモ

css

デザインとかよくわかんないからパクリ用 Biggest CSS Showcase all over the globe / CSSMania http://cssremix.com/ WordPress Themes | WordPress.org YUI CSS jQuery UI WooCommerce - Sell Online With The eCommerce Platform for WordPress Open Sour…

Code Reading (Perl): Starman (PSGI Web Server)

Starman のコード読んでみたのでまとめ。 Starmanとは Plack/PSGIに対応したPerl製のWeb Server。 Perlと言えばこの人、miyagawa さん作。 Plack/PSGI に関してはこのへんとか。 バカでもわかるPlack/PSGI - JPerl Advent Calendar 2009 第1回 PSGI/Plack―フ…

とくに意味はない

package Lazy::Camel; use Moose; use feature qw(say); sub speak { say $_[1]; } __PACKAGE__->meta->make_immutable; no Moose; package main; Lazy::Camel->speak("Perl");

Perlのprintfは引数を好きな順番で扱うことが出来る

何これ便利1$ とか 2$ とかで文字列に続く引数の1番目、2番目を指定できる。perldoc -f sprintf より: printf '%2$d %1$d', 12, 34; # prints "34 12" 1個の引数を2回使うこともできる。CPAN本にあった例(P.155): use Text::Xslate qw(html_escape); # ... s…

今日覚えたPerlの一行野郎

インストールされてるCPANモジュールの一覧を出す % perl -MExtUtils::Installed -e 'print "$_\n" for ExtUtils::Installed->new->modules' > modules.txt cpanmに食わせてインストールできる % cpanm < modules.txt Unicode解読 % perl -MEncode=encode_ut…

ただのメモ: Web Application Framework とか PSGI 関連とかのモジュール

たくさんあって楽しすぎるからメモっといて後々調べていく。 Web Application Framework とか Catalyst Catalyst | Perl MVC web application framework Mojolicious Mojolicious - Perl real-time web framework Mason Mason (Perl) - Wikipedia Jifty Jift…

ただのメモ: Perl5開発環境構築

% curl -LO http://xrl.us/perlbrew % perl perlbrew install % rm perlbrew % ~/perl5/perlbrew/bin/perlbrew init (add this in .zshrc: 'source ~/perl5/perlbrew/etc/bashrc') % perlbrew install perl-5.12.2 % perlbrew switch perl-5.12.2 (installed…

MySQL INDEX 実験してみた

ソーシャルゲーム開発者なら知っておきたい MySQL INDEX + EXPLAIN入門 | 株式会社インフィニットループ技術ブログを読んで自分で実験してみたくなって書いた。コードぐっちゃぐちゃだけど飽きてきたから忘れないうちに貼っちゃう。ダミーデータ生成とか、結…

HomebrewでMySQLをインストール

何だか一発で上手くいかなかったのでメモ。最終的にはこれでうまく行った。 # これが効いたかどうかわからない sudo chown -R `whoami` /usr/local brew install mysql # インストール後の説明では mysql_install_db にいろいろオプション与えてるけど、無く…

「定本 解析概論」の誤植 (P12)

定本 解析概論のP12下の方、 任意のに対して. となってるが正しくは 任意のに対して. だと思う。じゃなくて。古いほうの解析概論と、http://ja.wikisource.org/wiki/%E8%A7%A3%E6%9E%90%E6%A6%82%E8%AB%96/%E7%AC%AC1%E7%AB%A0/%E5%8F%8E%E6%9D%9F%E3%81%AE%…

Capybara+Seleniumのユニットテストで使うブラウザを変更する方法

昨日 の続きです。最新版(まだ開発版)のCapybaraを使うと簡単にSelenium経由でFirefoxを使ったユニットテストができると書きましたが、その仕組みが謎だったので調べました。 Seleniumで使うブラウザをFirefoxからChromeに変える spec/spec_helper.rb に以下…

RSpec+Capybara+SeleniumでJavaScriptのテスト

WEB+DB PRESS Vol.61の「Rails3テスト最前線」が話題のようです。 最新のRailscastsでちょうどRequest Specs and Capybaraが取り上げられていたので、WEB+DB PRESSの記事に載っていない部分を簡単にまとめてみます。関連記事: WEB+DB PRESS vol.61 Rails3テ…

やってみた: (1 2 3 4 5)が与えられたとき( (1 2) (2 3) (3 4) (4 5) )を返すような関数の定義

答え見ないでやってみた vallog: [1,2,3,4,5] が与えられたとき [[1,2][2,3][3,4][4,5]] を返すような関数を定義せよ #!/usr/bin/env gosh (use srfi-1) (use util.list) (use gauche.test) ;; 1 だけならこれ (define (slices* lis) (zip lis (cdr lis))) ;…

数学勉強記録

4章むずい。しばらく別の本読んだ後、また4章からやり直そう。線型代数学 (数学選書 (1))作者: 佐武一郎出版社/メーカー: 裳華房発売日: 1974/01/20メディア: 単行本購入: 1人 クリック: 12回この商品を含むブログ (26件) を見る

Canvasでコッホ曲線描いてHerokuで公開してみた

id:keyesberry さんの記事 CanvasアニメーションをHerokuで公開しようよ! - hp12c を見て面白そうだったので作ってみました。コッホ曲線を書くだけのものです。クリックすると細かい曲線になっていきます。ある程度までいくとまた粗くなっていって最終的に…

RailsでRESTfulにposts/:year/:month/:dayするにはどうしたらいいんだろう (続き)

前の記事の続き。id:tkawa さんがコメントで教えてくれてとっくに解決していましたが、 http://api.rubyonrails.org/classes/ActionDispatch/Routing.html の「Pretty URLs」によると、 match '/articles/:year/:month/:day' => 'articles#find_by_id', :con…

10分でコーディングをやってみた

10分でコーディング | プログラミングに自信があるやつこい!!まずRubyでやってみた。 (予想通り)10分以上かかる。StringとかArrayとかのマニュアルにちゃんと目を通しておかないと、自分の頭に浮かんだ解法とそれをどうRubyで表現できるか(or できないか…