ベクトルで計算したら早かった．5秒くらいかかるけどさっきより20倍くらいマシだからもういいや．何も考えずforを使うのを止めないといけない．

Problem 42 - Project Euler テキストファイルの最後に改行いれないとうまくいかない。 あと文字列ベクトルとして最初から読み込む方法が分からない。

Problem 41 - Project Euler 辞書順に並べて判定かけようと思ったけどなんかうまくいかなかった。

Dookieアーティスト: Green Day出版社/メーカー: Reprise / Wea発売日: 1994/02/01メディア: CD クリック: 20回この商品を含むブログ (96件) を見るIncesticideアーティスト: Nirvana出版社/メーカー: Geffen Records発売日: 1992/12/15メディア: CD クリッ…

3日目にしていよいよはてダが快適になってきたのでSeesaaとかもう更新しない気がする。

なんかこのPCほとんど何も入ってないので無駄に苦労した。 ちなみに環境は WinXP SP3 Meadow3 手順 ActivePerlのインストール ActivePerl | ActiveState 最初simple-hatena-mode使おうとしてたから入れたんだけど要るよね？要らない？ curlのインストール 香…

Problem 43 - Project Euler

Problem 39 - Project Euler

Problem 38 - Project Euler

http://ja.uncyclopedia.info/wiki/%E3%81%91%E3%81%84%E3%81%8A%E3%82%93! アンサイなのにだいたいあってる。 今日もやられやく - FC2 BLOG パスワード認証 ああいう金属部分がカッコイイヘッドホン欲しくて3年くらい探してるけどどれもこれも高くて買えな…

ホームセンターのあとに100均行ったらホムセンで買ったものが100円で売ってた。

Problem 40 - Project Euler やっぱ多少は考えてから書き始めるべき。

Problem 9の回答見ながら直したら早くなった。

isPrime <- function(n){ if(n == 1) return(FALSE) if(n < 4) return(TRUE) if(n%%2==0) return(FALSE) if(n < 9) return(TRUE) if(n%%3==0) return(FALSE) r <- floor(sqrt(n)) f <- 5 while(f <= r){ if(n%%f == 0) return(FALSE) if(n%%(f+2) == 0) retu…

The number 3797 has an interesting property. Being prime itself, it is possible to continuously remove digits from left to right, and remain prime at each stage: 3797, 797, 97, and 7. Similarly we can work from right to left: 3797, 379, 37…

はてな記法一覧 - はてなダイアリーのヘルプ はてな記法壁紙 - はてなダイアリーのヘルプ とりあえずリンクだけ覚えればいいか。title自動で取得してくれるのね。通りでみんな似たような体裁でハイパーリンク作ってる訳だ。 Meadow からはてなダイアリーに投…

折角だから何か書こう。 とりあえず記法覚えよう。