10001個目の素数を求めろという問題。調べたら素数に関するMath::Prime::XSというモジュールが あってその中の is_primeという関数を使ってみたんだけど 10分ぐらい待っても答えがでません でしたね。一応 core2duo 1.8GHzぐらいなんですけど。ある数以下の…

100までの自然数に関して 2乗の和と和の2乗の差を求めろ。難しくはないですね。 #!/usr/bin/perl use strict; use warnings; my ($sum_of_square, $square_of_sum) = p6(100); # 25164150 print "difference is ", ($square_of_sum - $sum_of_square), "\n";…

5問目。1から20までのすべての整数で割り切れる数の最小値を求めろ。 たぶん 1から20の最小公倍数を求めれば答えになるでしょう。リストからポップして 最小公倍数をどんどん求めていく。aとbの最小公倍数は a * b / (aとbの最大公約数)に なるそうなので、…

4問目。3桁の数の掛け算で上から読んでもしたから読んでも同じ数になるもののうち 最大値を選べという問題。それなりに perlらしく解答できたのかな?値を配列で返しても よかったけど、面倒なので文字列で返した。ちなみに 4桁だと 99000099 = 9999 * 9901 …

素因数の最大値を求める問題。問題の数値が大きいからそれなりに時間がかかりますね。 なんでかは知らないけど、素因数は目的の数の二乗根より小さいのでそれで計算時間を短縮。 #!/usr/bin/perl use strict; use warnings; print "max prime factor is ", p…

2問目。問題を見たときに偶数の項のことを偶数番目の項と思ったんだけど、英語を 見ると even-valued termsになっているので値が偶数の項みたいです。 #!/usr/bin/perl use strict; use warnings; print "sum is ", p2(4000000), "\n"; # 4613732 sub p2 { m…

結構 http://odz.sakura.ne.jp/projecteuler/index.php?Project%20Euler が流行っているようなので便乗して頑張る。使用言語は基本 Perlで。 #!/usr/bin/perl use strict; use warnings; print "input number >>> "; chomp( my $num = <STDIN>); print "sum is ", p</stdin>…

Gmailを使っているんですが、wanderlustからメールを送ろうとしたら gnutls-cliがありませんっていうエラーが出た。 % sudo aptitude search gnutls としたら送信できるようになりました。

http://www.achama.com/archives/2007/02/wanderlust.htmlリファイルをいちいちするの面倒くせ〜って思ってググったら普通に 出てきた。便利ですね。これだけは GUIの方が便利なのにな〜って 思っていたんだけど・・・。やっぱりGUIメーラを使う必要はなさそ…

C-x C-fなんかで対象となるファイルをだんだんと絞り込んでくれるツール。 すごく便利なんだけど、すごく重い。そのため今は offにしている。 バイトコンパイルしたら速くなるかな〜って思ったけど、無理だった。 C-x C-fが遅くなるっていうのがなんとなく許…

【レビュー】Googleからの贈り物 - Google AJAX Language APIでカンタンに翻訳サイトを (1) 超シンプルなAPIながらスゴイ実力 | マイナビニュースに Google Language APIについて書いていたので、Javascriptの勉強も兼ねて コード作成。サンプルをそのままで…

Perlのワンライナーでずっと何も表示されないぞってなって、zshとかの方の 設定が間違っているんじゃないかって思ったら、-eオプションを式の前に書かないと いけなかったんですね。 % perl -en 'print $_ if m/apple/' sample.txt # 間違い % perl -ne 'pri…

flymakeを導入してみたけど、Cの場合どうしていいかわからない。 正しいのにエラー扱いされてしまう。普通にコンパイルしたら何も 出ないんですけどね。

正直 texは面倒くさくて仕方ないとは思うのだけど、ついつい綺麗な文章を 書きたくなるときは利用してします。xhtml + cssぐらいでかければ楽なのかも しれないけど、まだまだ勉強不足。ということで、結局texをインストール。 以下その手順。 ubuntuではか…

特にこだわりがあるわけでもありませんが、必要と感じるものは TAB MIX PLUS Firemacs keyconfig bbs2chreader です。 TAB MIX PLUSは基本的な設定だけからな、どれを新規タブで開くかなんかの 設定を行いますね。bbs2chreaderはそこまで2chを見るわけではな…

XML::RSSを使って痛いニュースのタイトルだけ抽出しようかと思ったけど、 無理だった。RSSってバージョンが違ったらいろいろと違うのかな。勉強不足で よくわかりませんが。 結局、正規表現で作ってしまった。 RSSのバージョンの違いを勉強しよう。 #!/usr/b…

#!/usr/bin/perl use strict; use warnings; use XML::Feed; use URI; use Encode; use encoding 'utf-8'; my $rss_url = 'http://blog.livedoor.jp/dqnplus/atom.xml'; my $feed = XML::Feed->parse(URI->new($rss_url)) or die "Can't download $rss_url\n…

# $strが文字列の場合 open my $FH, " って書いたら文字列に対してダイヤモンド演算子なんかが使えるんですね。 一時ファイルを作っていた部分もこれを使えばファイルを作らず解決できそうです。

サスペンドして、リジュームしたときにバックライトが機能しないという 問題があったけど、 # /etc/default/acpi-support DOUBLE_CONSOLE_SWITCH=true としたらバックライトがちゃんとつくようになった。debianのときは サスペンドってしょっちゅう失敗して…

kernel 2.6.22ぐらいであればドライバがちゃんとインストールできる みたいですね。じゃーEtchではまだ少し厳しいのかもしれない。 統合されるのは 2.6.24みたいなので安定して使えるのは相当 先になるんですかね。やっぱり新しめのPCをDebianで使おうと 思…

ubuntu用 Emacs22の問題かよくわからないんですが、 Alt - %では置換コマンドにならないみたいです。 別のコマンドがバインドされているみたい。 global-set-key関数を使っても変わらなかったのは よくわかりませんが、Esc-%を押さないといけないようですね。…