http://movapic.com/fn7/pic/326539

http://movapic.com/fn7/pic/326286

http://movapic.com/fn7/pic/326133

http://touchmeifyoucan.blog47.fc2.com/blog-entry-111.html ↑こちらとほぼ同じ症状。。http://touchmeifyoucan.blog47.fc2.com/blog-entry-114.html ↑この対処で治るそうだ。。 おや? ネットワーク、消してないけど、 EatherNetケーブル差してないけどDHCP…

http://movapic.com/fn7/pic/321138

http://movapic.com/fn7/pic/320342

http://movapic.com/fn7/pic/320204

http://movapic.com/fn7/pic/319007

http://movapic.com/fn7/pic/318890

http://movapic.com/fn7/pic/317165

http://movapic.com/fn7/pic/317138

http://movapic.com/fn7/pic/317011

http://movapic.com/fn7/pic/314832

http://movapic.com/fn7/pic/312764

http://movapic.com/fn7/pic/310385

perlの関数呼び出しは遅いとのことで、ベンチを取ってみた。 おきにいりの書き方は、関数リファレンスを配列に入れて一つづつ実行してるから、あほほど遅いであろうと予測 ベンチマークスクリプト my $count = 10000; cmpthese($count, { fizzbuzz1=>sub{ my…

http://movapic.com/fn7/pic/309413

http://movapic.com/fn7/pic/309383

UITableViewの追加、dataSourceとdelegateをfizzbuzzAppDelegateに繋ぐのはInterfaceBuilder側で行う。ヘッダファイル。 #import <UIKit/UIKit.h> @interface fizzbuzzAppDelegate : NSObject <UIApplicationDelegate> { UIWindow *window; UITableViewController *tvc; } @property (nonatomic, re</uiapplicationdelegate></uikit/uikit.h>…

変数$a,$bが不要になったので削除。 あと、print関数自体が1を返すので、printの後に明示的に1を返していたのも失くした。 my $n = sub{0}; my @fizz = ($n,$n,sub{print 'fizz'}); my @buzz = ($n,$n,$n,$n,sub{print 'buzz'}); my $print_n = sub{print $_…

http://movapic.com/fn7/pic/307577

http://movapic.com/fn7/pic/305678

http://movapic.com/fn7/pic/304721

my $n = sub{0}; my @fizz = ($n,$n,sub{print 'fizz';1}); my @buzz = ($n,$n,$n,$n,sub{print 'buzz';1}); my $print_n = sub{print shift}; my $a = 0; my $b = 0; for(my $i=1;$i<=100;$i++){ ($fizz[$a++ % @fizz]->($i) + $buzz[$b++ % @buzz]->($i)) …

クロージャ化：ループ変数からの独立 パラメータのハッシュ化：'fizz'を'pizz'に変えたいときでも、引数の変更で対応できる。また、2の倍数の時が増えても対応できる sub create_fizzbuzz{ my ($p) = @_; my %count; my $n = 1; return sub{ my $str = ''; f…

ほぼjavascriptと同じやんwww sub create_fizzbuzz{ my ($a,$b) = @_; my $n = 1; return sub{ my $str = ''; if($n % $a==0){$str = 'fizz'} if($n % $b==0){$str .= 'buzz'} $str ||= $n; $n++; return $str; }; }; my $fizzbuzz = create_fizzbuzz(3,5); …

firebugはいってなければconsole.logがundefinedって言われるかもな。 IEとか。 var create_fizzbuzz = fizzbuzz = function(a,b){ var n = 1; return function(){ var str = ''; if(n % a == 0){str = 'fizz'} if(n % b == 0){str += 'buzz'} str = str || …

http://olympus-imaging.jp/pen50th/ もうすぐ発表されるね。 手がとどくくらいなら、欲しいな。 今持ってるレンズもアダプタ付けて使えそうだし。

$a = 3; $b = 5; print join "\n",map { my $str; if($_ % $a == 0){$str = 'fizz'} if($_ % $b == 0){$str .= 'buzz'} $str || $_; } (1..100); [参考]http://www.machu.jp/diary/20070509.html#p01剰余を使わないで書くのは、パズル的な楽しさが確かにある…

@interface MyObj : NSObject{ NSMutableDictionary *dic; } @property (nonatomin,retain) NSMutableDictionary *dic; @end @implementation -(id)initWithDic:(NSMutableDictionary *)param { if(self = [super init]){ dic = param; } return self; } -(v…