このソフトで唯一マトモに出力できる高解像度動画形式のwmvを３つ（vid1.wmv, vid2.wmv, vid3.wmv）連結して、最後に「ありがとうございました」画像 image .jpgをくっつけ、NSTC形式のDVDで16:9にしてそのままオーサリングソフトで焼けるようにするためのffmpegのオプションの設定の仕方がとうとうわかった！

ffmpeg -i vid1.wmv -i vid2.wmv -i vid3.wmv -loop 1 -t 5 -i image .jpg -f lavfi -t 5 -i anullsrc=channel_layout=stereo:sample_rate=48000 -filter_complex "[3:0]scale=1280x720,setsar=1:1[v2],[0:1][0:0][1:1][1:0][2:1][2:0][v2][4:0]concat=n=4:v=1:a=1[v3][a3]" -map '[v3]' -map '[a3]' -shortest -target ntsc-dvd output.mpg

ここで技術力がないとか、計画が悪いとか、ハゲとか（ハゲではない）、バカとか罵詈雑言を浴びせられるだけで無能感高まっていたが、どうして、最初から ffmpegの名前を出しているのに、上のコマンドぐらいパッと送ってくれる人間がいないのか。みんな、そんなに悪意に満ちているのか。

まぁ、映像専門のエンジニアにしてみれば「ばーか、６時間もかからないよ」というところなんだろうけど、映像専門じゃないんでスミマセンね。

つまづいたのは、

イ）concat filterがv=1,a=1を設定した時、[vid1のvideo stream][vid1のaudio stream][vid2のvideo stream][vid2のaudio stream]という形でビデオと音声のstreamを交互に並べていけないといかないところ

ロ）concat filterが必ずaudio streamも指定して動く形になっているため、無音のaudio streamをanullsrcで作ってやらないといけないところ

ハ）anullsrcは無限時間無音声を生成し続けるので、通常は-shortestを指定して時間制限するのだが、anullsrcとconcat filterを組み合わせる時は、-shortestを指定しても無限時間音声生成が止まらないところ。なぜかわからないが、-t 5で直接5秒間指定して音声を切ったわ。

というわけで、「感動かんたん！フォトムービー８」を使って結婚式ムービーを作るためには、これだけの知識が必要になるので、パッケージに書いておいてください。じゃないと、詐欺だと思います。まる。

Permalink | 記事への反応(7) | 11:22

2015-01-27

■http://anond.hatelabo.jp/20150126204524

バイオ系は、つぶしが効かない。ポイントは、そうなんですよね…。

そういう意味で、機器分析的ことは、まだ、マシかなぁと。

数学は、もう学ぶには、年を取り過ぎているかもしれません。

確かに主成分分析、流行りの統計的手法をなどを良くわかろうとするならば、線形代数とか知っている格段に良さそうですよね。

もしかして、普段から結構レベル高い人を相手に、されていますか。旧帝大系か、早慶レベルの人ですか。というか、アカデミックな仕事を得ようとするならば、当然ですかね…。

---

プログラミングといっても、csv file のサイズも、せいぜいExcelで開くことが出来る程度の量のデータです。

多くても5000行もありません。

でも、Rでloopで回して、ggplotでグラフを描く、optionを変更とかは、しています。

pythonは、プログラマーの人にも、手伝って貰って、csv から、matplotlibを使ってなんとか、望んだ形のグラフを書ける程度です。

（Learn python hard way なるものを途中で挫折のレベルです。）

業務で、それらのR, pythonの技術を使える環境にあるので、学んだほうが、自分の為にも、職場の人の為にも、なりそうですね。

プログラミングを書けるようになるには、Stack OverFlowとか、英語のドキュメントを読めるとやっぱり、違いますよね。

英語が出来る外国人っていいなぁって思います。もちろん、日本人でも。

—

はてなで、ブックマークがたくさんついていたので、あの記事も読みました。

イシューから...本も買って、読みましたよ！

「圧倒的に生産性の高い人（サイエンティスト）の研究スタイル、

http://d.hatena.ne.jp/kaz_ataka/20081018/1224287687」

経験が浅いうちは、経験のある人とのディスカッションやコールドインタビューという手法が大切、ということを思い出しました。

話すこと、ディスカッションの大切さを忘れないようにします。

+++

はてなー技術的な動向としては、データサイエンスって流れみたいですね。

細分化が激しそうですね。

機械学習は、たとえば、slide shareで、パターン認識と機械学習入門

http://www.slideshare.net/mmktakahashi/ss-13694313

なんか、スゴそうってことぐらいしか、わからないです。

オライリー本の「入門　機械学習」Rで、書くやつです、これは、買いました。

そういうことならば、道としては、間違ってなさそうですね。

自分の興味で食べていけそうな感じも、ないわけではないですね。

ただし、時間がキツイですね。

ーーー

整理する力や弱点が多いので、どう対応していくのか、考えながら、上述の技術的なことを学びたいです。

Permalink | 記事への反応(2) | 10:38

Permalink | 記事への反応(9) | 12:23

2014-05-29

■WinInetを使ってVBAでPOSTする

Option Explicit

Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const INTERNET_SERVICE_HTTP = 3
Private Const INTERNET_DEFAULT_HTTP_PORT = 80
Private Const INTERNET_FLAG_RELOAD = &amp;amp;H80000000

Private Declare Function InternetOpenA Lib "wininet.dll" (ByVal sCallerName As String, ByVal dwAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetConnectA Lib "wininet.dll" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nProxyPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal dwService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumberBytesToRead As Long, ByRef lNumberOfBytesRead As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternetHandle As Long) As Long
Private Declare Function HttpOpenRequestA Lib "wininet.dll" (ByVal hConnect As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal sAcceptTypes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function HttpSendRequestA Lib "wininet.dll" (ByVal hRequest As Long, ByVal sHeaders As String, ByVal dwHeadersLength As Long, ByVal lpOptional As String, ByVal dwOptionalLength As Long) As Long

Private Function submitPost(ByRef host, ByRef url_path, ByRef sendString) As Variant

  Dim dataArray() As Byte, dataPosition, dataSize

 'WinInet初期化
  Dim hInternet
  hInternet = InternetOpenA(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  If hInternet = 0 Then
    submitPost = dataArray
    Exit Function
  End If

 'サーバ接続
  Dim hConnect
  hConnect = InternetConnectA(hInternet, host, INTERNET_DEFAULT_HTTP_PORT, vbNullString, vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
  If hConnect = 0 Then
    InternetCloseHandle hInternet
    submitPost = dataArray
    Exit Function
  End If

 'リクエストを初期化
  Dim tmpURL As String * 255
  tmpURL = url_path
  Dim hRequest
  hRequest = HttpOpenRequestA(hConnect, "POST", tmpURL, "HTTP/1.1", vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  If hRequest = 0 Then
    InternetCloseHandle hConnect
    InternetCloseHandle hInternet
    submitPost = dataArray
    Exit Function
  End If

 'リクエストを送信
  Const strHeader = "Content-Type: application/x-www-form-urlencoded"
  HttpSendRequestA hRequest, strHeader, Len(strHeader), sendString, Len(sendString)

 'データ取得
  Dim readResult, tmpArray(1023) As Byte, tmpPosition, tmpSize
  dataPosition = 0
  dataSize = 0
  Do
    tmpSize = 0
    Erase tmpArray
    readResult = InternetReadFile(hRequest, tmpArray(0), 1024, tmpSize)
    If Not readResult = 1 Or tmpSize = 0 Then
      Exit Do
    End If

    dataSize = dataSize + tmpSize
    ReDim Preserve dataArray(dataSize - 1)
    For tmpPosition = 0 To tmpSize - 1 Step 1
      dataArray(dataPosition) = tmpArray(tmpPosition)
      dataPosition = dataPosition + 1
    Next
  Loop

 'クローズ処理
  InternetCloseHandle hRequest
  InternetCloseHandle hConnect
  InternetCloseHandle hInternet

  submitPost = dataArray

End Function

Public Function downloadFilePost(ByRef targetURL, ByVal sendArray, ByRef savePath) As Boolean

 'URLの分解
  Dim startE, endE, host, url_path
  startE = InStr(1, targetURL, "//") + 2
  endE = InStr(startE, targetURL, "/")
  endE = IIf(startE &gt; endE, Len(targetURL) + 1, endE)
  host = Mid(targetURL, startE, endE - startE)
  url_path = Mid(targetURL, endE)

 'ポストデータのエンコード
  Dim jscript
  With CreateObject("ScriptControl")
    .Language = "JScript"
    Set jscript = .CodeObject
  End With
  Dim ix, sendBuffer
  For ix = 0 To UBound(sendArray) Step 1
    sendBuffer = Split(sendArray(ix), "=")
    sendArray(ix) = sendBuffer(0) &amp;amp; "=" &amp;amp; jscript.encodeURIComponent(sendBuffer(1))
  Next
  Set jscript = Nothing

  Dim data
  data = submitPost(host, url_path, Join(sendArray, "&amp;amp;"))

  If LenB(data) &lt;= 0 Then
    downloadFilePost = False
    Exit Function
  End If

 'バイナリで書き込み
  With CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .Write data
    .SaveToFile savePath, 2
    .Close
  End With

  downloadFilePost = True

End Function

Permalink | 記事への反応(1) | 22:27

2014-05-10

■http://anond.hatelabo.jp/20140510122135

オススメ図書。

「洗脳の楽園」「ブラック企業経営者の本音」

じゃ！

親が社畜だと、子供も社畜。無限 LOOP

Permalink | 記事への反応(1) | 12:23

2012-06-29

■どのプログラミング言語が最も美しいか？

■ C

for( const char *s="12345"; *s; ++s ) if( '2'<*s&&*s<'5' ) printf( "%d", (*s-'0')*2 );

■ JavaScript

console.log([1,2,3,4,5].filter(function (i){ return (i > 2 && i < 5 ); }).map(function(i){ return 2 * i; }));

■ Python

print(map(lambda x: x*2, filter(lambda x: x>2 and x<5, [1,2,3,4,5])))

■ Ruby

puts [1,2,3,4,5].select{|i| i > 2 and i < 5}.map{|i| i*2}

■ C#

new{}{ 1,2,3,4,5 }.Where(x => 2 < x && x < 5).Select(x => x*2);

■ Common Lisp

(print (loop for x in '(1 2 3 4 5) if (< 2 x 5) collect (* x 2)))

■ Haskell

print [x*2| x <-[1,2,3,4,5], x > 2, x < 5]

■ J

:(((>&2)*.(<&5)) a) # a=:1+i.5

■ R

print((function(){x<-c(1,2,3,4,5);x[2<x&x<5]*2})())</p>

■ Clojure

(print (for [x [1,2,3,4,5] :when (< 2 x 5)] (* x 2)))

■ Squeak Smalltalk

(1 to: 5) select: [:x | x between: 3 and: 4] thenCollect: [:x | x * 2]

Permalink | 記事への反応(2) | 22:46

2011-11-23

■コピーのコピーのコピーで記事の体裁をなしていないJ-CAST

今更言っても無駄だと、それがJ-CAST連中のやり方だと言ってしまえばそれまでかもしれない。Jカス絡みでこんなのはよくある事だ。けどやっぱり今回の仕業にはあまりにも目が余る。

これについてだ。

「今のアニメはコピーのコピーのコピー」「表現といえない」押井守監督発言にネットで納得と逆ギレ (1/2) : J-CASTニュース

この記事は、朝日新聞社のサイトで連載されている小原篤の連載コラム「アニマゲ丼」を発端として書かれてるものだ

こちらがそれ

asahi.com（朝日新聞社）：「若者は夢を持つな」と監督が言った - 小原篤のアニマゲ丼 - 映画・音楽・芸能

そもそもは11月12日に東京芸術大学で開催された、「第2回映像メディア学サミット LOOP-02 マンガ・アニメの映像メディア学的再考」というセッションに押井守が参加し、トークした内容が大本になっている。

その模様はユーストでアーカイブとして見れたが、20日までの限定配信で現在は見れない。

まず「アニマゲ丼」の記事は、見出しが示しているように「若者は夢は持つな」という旨の発言を軸にしている内容である事がわかる

以下引用

asahi.com（朝日新聞社）：「若者は夢を持つな」と監督が言った - 小原篤のアニマゲ丼 - 映画・音楽・芸能

　「やさしい、というのは、励ますとか慰めるのとは違う。『親身になれた』という意味で、それまでは若者のことはどうでもよかったのが目を向けるようになったということ。で、若い人のことを考えれば、本当のこと、残酷なことを言わざるを得ないと思い、ちょうどそのころ中学生や高校生と話す機会がたくさんあったので、こういう話をした。あなたたちは限りなく凡庸で無名で何の個性もないんだ、『一人一人がかけがえのない存在だ』なんて大人のウソを信じるのはやめて、早く幻想を捨てろ、夢を持つな、あなた方の未来にいいことなんて何一つないんだ――というところから始めたらどうでしょうか、と」
　なんて身も蓋（ふた）もない、と思いましたが０８年８月１１日の本欄で私は「スカイ・クロラ」について「あまりに救いのない、というか身も蓋もない結末ではありませんか」と書いていたのを思い出しました。

ここが「アニマゲ丼」で一番取り上げたい部分なのだろう。

この押井守の主張に関する是非は置いておくとしても、この記事自体はバイアスがかかっている気がする。

実際の講演は第2部「アニメーションと日本の戦後社会―ロボット、サイボーグ、アンドロイド、そして人間」というタイトルが付けられている通り

パトレイバーや攻殻機動隊を監督した者として押井がロボットやアンドロイドのあり方を問い、技術論を語り、さらに原発の話題にも振れていくところが主体の講演だった筈だ

ここのスカイクロラの部分はほとんど寄り道であって、「アニマゲ丼」の記事を書いた小原篤の主観として誇張気味に書いている節がある。

いわば押井の講演内容からコピーしてトリミングして、そこに小原自身の主観を交えながら書かれている記事だ。

J-CASTはそこから更に、何故か突然「萌えアニメ」「ハーレムアニメ」などと言った単語を挿入し、押井守が今の萌え・ハーレムだらけのアニメ業界に苦言しているようにも取れる記事を書いている

それが冒頭のURLなのだが、かなりおかしい。

まずアニマゲ丼から、押井が今のアニメに苦言しているという部分を引用する

asahi.com（朝日新聞社）：「若者は夢を持つな」と監督が言った - 小原篤のアニマゲ丼 - 映画・音楽・芸能

そして現実の劣化コピーに過ぎない実写と違い、「現実に根拠を持たない」アニメは珠玉の工芸品となり得、アニメはその根本から細部までコントロール可能であるがゆえにその力を使ってアニメ監督は、全世界・全歴史に向けて自分の言いたいことを完全な形で言えてしまうという誇大妄想の極限を味わうことができる。これは悪のにおい、危険なにおいがする。ゆえに若い人をひきつける。しかし僕の見る限り現在のアニメのほとんどはオタクの消費財と化し、コピーのコピーのコピーで「表現」の体をなしていない。

これはどちらかというと、アニメ監督をすることで「誇大妄想の極限を味うことができる」部分に目が行くと思うのだが

前後をぶっちぎって、今のアニメのほとんどはコピーのコ（略）の部分に脊椎反射している人間が多いようだ。

しかしこの記事のこの部分は全貌するとこうなっている

asahi.com（朝日新聞社）：「若者は夢を持つな」と監督が言った - 小原篤のアニマゲ丼 - 映画・音楽・芸能

　押井監督は、日本人が科学技術の表面的な受容と円滑な運用のみにかまけ、その技術の核たる思想、技術をゼロから立ち上げる思想を持たなかったことが今回の原発事故を生んだと指摘。様々な当事者の認識を改めるために今回の事態をヒロシマ・ナガサキに続く「第３の原爆」と呼ぶべきだと訴えました。「技術の思想」の欠如は、ロボットに「かっこよさ」のみを求めるアニメ製作者の思考にもあてはまる、と自作「機動警察パトレイバー」をもとに批判を展開し、そして訴えかける核を持たない日本アニメは、その表層を細緻（さいち）に描き込み磨きあげることで「極東の島国の珍なる文化」として世界に地位を獲得したと分析。工芸品的に細部を作り込みたがるその日本人的な意識が、細緻（さいち）な映像表現に好適なロボット・アンドロイド・サイボーグなどへと向けられた結果、肉体や自意識をめぐるテーマへと結びつき、つまりはアニメという表現形式が発展過程でテーマをはらんでしまったのだと説き明かしました。そして現実の劣化コピーに過ぎない実写と違い、「現実に根拠を持たない」アニメは珠玉の工芸品となり得、アニメはその根本から細部までコントロール可能であるがゆえにその力を使ってアニメ監督は、全世界・全歴史に向けて自分の言いたいことを完全な形で言えてしまうという誇大妄想の極限を味わうことができる。これは悪のにおい、危険なにおいがする。ゆえに若い人をひきつける。しかし僕の見る限り現在のアニメのほとんどはオタクの消費財と化し、コピーのコピーのコピーで「表現」の体をなしていない。あと、ユニコーンガンダムのツノはアイデアとして面白いけど、だからどうなの？
　ってな話を約２時間、相変わらず、とうとうとまくしたてたのでありますが（上のまとめは少々わかりやすくかみ砕いてます）メモをとるのが疲れました。私はそれより、新作の話はないの？って聞きたかったんですけど。

ここで「アニマゲ丼」の記事は終わる。

訓練された押井信者（笑）ならば、ここは「ああ、最後はいつもの押井で終わりだな」と、顔をほっこり緩めるところだろう。

「アニマゲ丼」としてはこれをオチの部分にしたかったに違いない。

アニメはコ（略）などはほんの極一部分にしか過ぎないし、これだけでは押井が真剣に憂いているのかどうかもわからない。

さて、J-CASTの方を見てみよう

「今のアニメはコピーのコピーのコピー」「表現といえない」押井守監督発言にネットで納得と逆ギレ (1/2) : J-CASTニュース

朝日新聞は2011年 11月21日付けの電子版コラム「アニマゲ丼」で、押井さんの東京芸術大学大学院映像研究科での講演(11月12日開催)を紹介した。講演で押井さんは
「僕の見る限り現在のアニメのほとんどはオタクの消費財と化し、コピーのコピーのコピーで『表現』の体をなしていない」
と語ったという。つまり、制作者には新たな創造性や、作品を通じて訴える思想的なものが欠如し、過去にヒットした作品の焼き直しばかり。例えば「萌え」が流行すればそうした作品ばかりになっている。また、今のアニメはオタクと呼ばれるファン層に媚びたものが多く、こうしたことから「表現」が制作者から無くなった、という批判だ。
確かに11年9月から始まった20本近い新作テレビアニメを見ると、さえない男性主人公の周りに美少女が群がる「ハーレムアニメ」が驚くほど多く、過去にヒットした「ハーレムアニメ」作品と共通する内容がかなり多い。

突然どこからか「萌え」「ハーレムアニメ」という単語が出てきた

それどころかかなり履き違えて解釈しているのではないか

押井が言いたいのは「アニメという現実に縛られない媒体を使うことで、監督の自己主張を完全な形で広められる。こりゃたまんねえ（快感）。でもそこまでやる奴ぁもうほとんどいないよね」という事を言いたかったのでは？これも俺の主観ですけど。

どちらにせよ「オタクの消費財」や「コピーのコ（略）」が萌えアニメやハーレムアニメだけを指しているというのは暴論だろ

その発言の直後に出てくるのはガンダムUCだし

J-CASTはあくまで「ネットでそう反応されてる」と言い訳のように使ってる

「今のアニメはコピーのコピーのコピー」「表現といえない」押井守監督発言にネットで納得と逆ギレ (2/2) : J-CASTニュース

今回の押井さんの発言についてネットでは
「萌えクソアニメの乱発は誰が見ても異常」
「アニメ業界が飽和しすぎで、コピー品を粗製乱造しなきゃ回らなくなってる」
「売らなきゃ食っていけないからな。安定して売れるのがオタク向けの萌えやエロ」
などと納得する人もいるのだが、現在主流となっているアニメのファン達は、自分達の趣味趣向、好きなアニメを批判するのは許せない、と激しく反発。しかし理論で立ち向かえないからなのか
「押井のアニメくそつまんねーんだよ」
「押井も信者向けの消費財じゃん」
などといった作品批判や、人格批判へと発展し、大混乱となっている。

これでJ-CASTの記事は終わる

J-CASTとしては、「ネットでは押井守が萌えアニメを非難していると言ってる」として、そこを拡大解釈しまくってこんな記事を書いたのだろうか

そもそもそのネットってのはどこのネットを指してんの？2ch？

ちなみにニュー速＋では

【話題】「今のアニメはオタクの消費財と化し表現の体をなしていない」押井守さんの発言でネット上は騒動に

というスレッドが立ったが、それはJ-CASTの記事を受けてのものだったし、★4まで伸びたがそれ以上の次スレは立っていない。(追記、★6辺りまで伸びたっぽい？)

一体どこで"大混乱"になってるのか全然思い辺りが無いんですけど。

押井守の東京芸大での講演が、「アニマゲ丼」がダイジェスト記事にしている時点ですでにコピーだし

それを読んで、どこかのネットでは「押井守が萌えアニメを馬鹿にしている！」と憤慨しているならさらに劣化コピーで伝わるべきものが全然伝わってない

その劣化コピーをさらに劣化コピーして記事を作ったJ-CASTはまさに「コピーのコピーのコピー」だ

こんなのを個人ブログでやるならまだしも、企業ぐるみで金を回しながらやってるんだから狂ってるよJ-CASTは。

Permalink | 記事への反応(1) | 11:51

2011-05-19

■「これからの「パスワード」の話をしよう」のバグについて突っ込む

Web屋のネタ帳( http://neta.ywcafe.net/ )様の

これからの「パスワード」の話をしよう( http://neta.ywcafe.net/001184.html )で

紹介されているパスワードのハッシュ化のバグについて突っ込んでみる

バグといっても大きなものではなく

　「１回ハッシュ化を解読できただけ、プレーンパスワードを入手することが可能である」

というものである。

問題の部分はここ

    /**
     * 平文のパスワードをハッシュ＆stretchするメソッドです。
     * loop回数は1000としていますが、999でも1001でもお好みでどうぞ。
     * ただしループ回数は処理時間に直結しますのでほどほどの数値で。
     */
    private static final String hashAndStretch(String plainPasswd, String salt) {
        int loop = 1000;
        String hashedPasswd = "";
        for (int i = 0; i &lt; loop; i++) {
            hashedPasswd = DigestUtils.sha256Hex(hashedPasswd + plainPasswd + salt);
        }
        return hashedPasswd;
    }

ここのロジックをトレースしてみると

＜凡例＞

プレーンパスワード：PASSWORD

ソルト：SSSSSSSS

＜トレース＞

最終的なハッシュ化パスワードが「XXXXXXXX」とする

XXXXXXXX　←　 DigestUtils.sha256Hex("YYYYYYYY" + "PASSWORD" + "SSSSSSSS")

クラッカーがXXXXXXXXXのハッシュ値を解析し、元の文字列が「YYYYYYYYPASSWORDSSSSSSSS"」と判明したとする。

この時点で元文字列の中にプレーンパスワードが含まれていることになる。

また、ハッシュ化された文字列には「0123456789abcdef」の文字しか含まれておらず、

　「それ以外の文字が含まれていた場合容易にプレーンパスワードではないか」

と推測可能である。

一般的なパスワードには少なからず「0123456789abcdef」以外の文字が含まれているだろうし、

意味のある言葉をパスワードに使っていた場合一目瞭然だ。

上記のことをふまえてプログラムを修正すると。。

    /**
     * 平文のパスワードをハッシュ＆stretchするメソッドです。
     * loop回数は1000としていますが、999でも1001でもお好みでどうぞ。
     * ただしループ回数は処理時間に直結しますのでほどほどの数値で。
     */
    private static final String hashAndStretch(String plainPasswd, String salt) {
        int loop = 1000;
        String hashedPasswd = DigestUtils.sha256Hex(plainPasswd + salt);;
        for (int i = 0; i &lt; loop; i++) {
            hashedPasswd = DigestUtils.sha256Hex(hashedPasswd + DigestUtils.sha256Hex(salt + i));
        }
        return hashedPasswd;
    }

プレーンパスワードをループの外でハッシュ化し、

またソルトを毎回違う値にハッシュ変換することにより

元の文字列の推測を行いにくく修正した。

Permalink | 記事への反応(1) | 23:34

2011-01-23

■http://anond.hatelabo.jp/20110123182154

loop:goto loop;

Permalink | 記事への反応(0) | 18:45

2010-04-21

■http://anond.hatelabo.jp/20100421184707

loop→何度も同じことを繰り返す

じゃなくて、

loop→回ってる→クルクルパー

ってことだろ

Permalink | 記事への反応(1) | 19:04

2010-02-25

■「世界中のネットでキムヨナの不正が疑われている！」というけれど

どこの話なんだろうか？

「Kim Yu-Na」で検索して昨日のことに関するいくつかの記事を探した。次の四つの記事を見つけた。

http://www.ctvolympics.ca/figure-skating/news/newsid=50985.html
http://www.washingt onpost.com/wp-dyn/content/article/2010/02/24/AR2010022400302.html
http://www.huffingt onpost.com/2010/02/24/kim-yunas-short-program-g_n_474274.html
http://www.nytimes.com/2010/02/24/sports/olympics/24skate.html

しかし一番目のサイトでふれられているぐらい。

But at least one veteran skater, former Ca nadian medallist Elvis Stojko, suggested that Kim's marks were too high. He noted that Asada had successfully landed a triple Axel - she's the only woman who executes them regularly in competition - and got fewer marks than Kim's easier triple Lutz.
The argument is similar to the one over whether American Evan Lysacek should have won the gold medal without having landed a quad like his competitor Evgeni Plushenko.
"Yu-Na Kim is way too far ahead. I don't agree with that," said Stojko. "She skated great. Don't get me wrong, she's awesome. But for Mao to do an awesome triple Axel like that, a triple [Axel] is worth way more than a triple Lutz, triple toe."
http://www.ctvolympics.ca/figure-skating/news/newsid=50985.html

でもコメントでは批判されている。

Stojko is WRONG again! I can't believe how he's embarassing himself with his commentary. Asada's triple Axel-double toe combo is worth LESS than Kim's triple Lutz-triple toe combo. In fact for the GOE(Grade of Execution), Asada only received .60 extra for ther opening combo last night whereas Kim received 2.00 bonus for her's.
cw_pianoman22@yahoo.ca

triple axel itself does have higher score than triple lutz, but Mao combined it with double toe loop while Yuna Kim's combination was triple-triple. And she executed it way better than anyone else. Just doing one difficult jump doesn't make a great skater. How you do it also matters. Yuna Kim's program is higher difficulty overall, therefore has higher basic score than anyone else's program. And she got higher execution mark for the quality. If Stojko wants to see more jump, he can go to Cirque du soleil. Stop insulting a quality program and great effort of other athlets.
hohoho323

まじめに全部読んだ訳じゃないから絶対という訳ではないけど、コメント欄でStojkoの意見に賛成する人はいなかったはず。他の記事では不当に得点が高いと書かれていなかったはず。

ただ外国の２ちゃんねるのようなところでは違うかもしれないと思って、4chanを見てみたのだが全く話題になっていなかった。そこでずばり「Kim Yu-Na bribe（＝賄賂）」でググってみた。で、見つけたのがこれ。

Korean newspapers report on the internet proxy wars that are going on between Japan and Korea, through Kim Yuna and Asada Mao.
http://www.newdaily.co.kr/html.....41244.html
http://news.chosun.com/site/da.....p;Dep3=top
These describe how Japanese netizens are behaving. Some were noted for their wishing and rambling “fall fall, roll over, fall fall, trip and fall and roll over” during Kim Yuna’s performance. Once Kim’s score was announced, the Japanese internet sites exploded with comments of Koreans bribing the judges and buying the competition. The report in Chosun’s article noted how Korean netizens were taking the high road.
This is why I don’t watch nor care about this sports. Not only is it boring to watch, the overt nationalism on both sides of the sea dirties up the sports.
cm
http://www.rjkoehler.com/2010/02/24/kim-yu-na-scores-world-record/

どちらかというと日本のネチズンを批判するもの。まぁ、韓国系のブログだから不正採点とか騒いでいる人たちには意味がないけど。日本系のだと見つからなかったけど、去年のものがあってそれが興味深かった。去年というか半年ぐらい前にもあったのかという点に驚き。２ちゃんねるも知ってるブログなのだけど、コメント欄ではあきれられてる。

I must agree with you that some of the feuds between Korea/Japan/China indeed stem out of pure hatred and unjustified bias, resulting in posting videos like this that are obviously made of 100% malicious intent.
fracturedcow

Nationalism is a form of brain damage.
William George

個人的には日本の一部のネチズンが世界的に迷惑をかけて申し訳ないと感じる。

キムヨナの不正が疑われているってどこの話なの。

Permalink | 記事への反応(2) | 08:03

2009-08-04

■EA Sports Active

http://www.amaz on.com/gp/product/B001MBUGLY/

日本版が8/6に出るけど・・・

★☆☆☆☆　Not a More Cardio Wii Fit, Rather a Disaster of a Product, July 16, 2009

The concept is fantastic but the wiimote/sensor interaction is too finicky. It made the workout too frustrating. Specifically:
Some of the exercises work great on one side but not the other. Moving the sensor doesn't fix it.
If the way you hold the wiimote/nunchuck is off even slightly, the exercise stops and waits for you. You have to guess what it's waiting for.
There reps are not timed to the music and there's no consistency to the timing. Instead of getting into the flow of the reps, it waits for you before it does the next rep. There's too much "thinking" time between reps making it hard to get a good flow to your workout.
When doing reps, it's normal to anticipate the next rep, but this game does not allow for that. You finish a rep, the program goes back to the top of its do loop and then it does the next rep. It's very choppy - there's no smooth rhythm to the reps.
If you move even a little faster than the "follow me" droid it stops completely (like its giving up), puts a note on the screen and waits for you to go back to the top of the rep.
The instruction videos take FOREVER to demonstrate a simple exercise. Between that and the delay between reps, there's lots of down time.
Overall, I found it very frustrating because every time my workout started to flow, something interrupted it. I've had the Wii for over a year, and play with it daily so I don't think it's a learning curve issue.

評価の悪かった批評ぐらい訳してみようかな・・・

Permalink | 記事への反応(1) | 20:33

2008-06-08

■ad:tech 11th Annual Awards - Winners

From View the award winners!（汐留通信 Part3）

ad:tech 11th Annual Awards - Winners

http://www.ad-tech.com/awards/winners/

About "ad:tech" - はてな

http://d.hatena.ne.jp/keyword/ad:tech

INTERACTIVE ADS

BEST BANNER AD - Avenue A | Razorfish

WaMu Friendly Banner

http://wamufriendly.razorfishtc.com/banners/Fat/friendly_300x250_fat.html

BEST INTERACTIVE BROADCAST - TBWA/Chiat/Day/Tequila

Nissan Rogue Campaign

http://showcase.tequila.com/folio/Nissan/Awards_2008/adtech_interactive_broadcast.html

BEST LARGE FORMAT OR OVERLAY AD - AKQA

Assassin's Creed Roadblock

http://work.dc.akqa.com/ubisoft/assassinscreed/adtech.html

BEST NEXT GENERATION AD - CCCP

HEMA Rude Goldberg Viral

http://www.cccp.nl/hema/

BEST USE OF RICH MEDIA - Goodby, Silverstein & Partners

HP Gwen Stefani Yahoo Paper Dolls

http://public.yahoo.com/~wwwads/archives/hpq/070921/

INTERACTIVE CAMPAIGNS

BEST WORD OF MOUTH MARKETING CAMPAIGN - EVB & Toy　☆BEST OF SHOW

Elf Yourself （OfficeMax）

http://demo.elfyourself.com/

BEST BUSINESS-TO-BUSINESS CAMPAIGN - EyeWonder

Eye Wonder Client Testimonials （EyeWonder）

http://cdn.eyewonder.com/100125/marketing/AdTech/index.html

BEST DIRECT RESPONSE CAMPAIGN - eStara

Soccer Club Sells Seats with DRC （Sporting CP）

http://jp.youtube.com/watch?v=gQ42Kf_SFkE

BEST INTEGRATED CAMPAIGN - Smith Brothers Agency

Heinz Top This TV Challenge Website （Heinz）

http://www.topthistv.com/archive/

BEST MULTI-CULTURAL CAMPAIGN - Media 8 Digital Marketing

Vivemejor （）

http://www.vivemejor.com/

BEST AFFILIATE MARKETING CAMPAIGN - Schaaf Consulting

Moosejaw - Growth and Profit （Moosejaw）

http://moosejawaffiliates.com/

BEST BRANDING CAMPAIGN - Agency.com

eBay - Renew & Rethink （eBay）

http://portfolio.sf.agency.com/clients/eBay/ebay_renewrethink.html

BEST CONSUMER CAMPAIGN - These Days

Nokia Jealous Computers （Nokia）

http://www.thesedays.com/Awards2007/nokia%5Fjealouscomputers/

BEST EMAIL MARKETING CAMPAIGN - Acxiom Digital

Sun APAC Re-engagement （Sun）

http://www.177bovet.com/awards/2008/adtech/

BEST MOBILE CAMPAIGN - The Hyperfactory & Ogilvy

Motorola "Say Goodbye" （Motorola）

http://210.48.79.8/awards/hkia/index.htm

BEST SOCIAL MEDIA MARKETING CAMPAIGN - Guerilla PR

Banboo on Facebook （wacom）

http://www.facebook.com/pages/Bamboo-By-Wacom/7616161690

OPTIMIZATION/SEARCH

BEST SEARTH MARKETING STRATEGY/CAMPAIGN - Svripps Networks

HGTV Design Star Marketing Loop (HGTV)

BEST SEARTH ENGINE OPTIMIZATION STRATEGY/CAMPAIGN - eMarketingEye(Pvt)Ltd

Millennium & Copthorne SEO Campaign (Millennium & Copthorne)

BEST CAMPAIGN OPTIMIZATION - iCrossing

Lincoln Educational Services (Lincoln Educational Services)

WEB SITES

BEST BUSINESS-TO-BUSINESS MARKETING WEB SITE - Mullen

Mullen.com (Mullen)

http://www.mullen.com/

BEST BUSINESS-TO-BUSINESS TRANSACTION WEB SITE - The Buddy Group

FurnishedQuarters.com (Mullen)

http://www.furnishedquarters.com/

BEST BUSINESS-TO-CONSUMER MARKETING WEB SITE - Goodby, Silverstein & Partners

HP Serena Williams Site (HP)

http://www.hp.com/united-states/serena/2007/index.html?jumpid=ex_R11260_go/serena

BEST BUSINESS-TO-CONSUMER TRANSACTION WEB SITE - ROKKAN

Virgin America (Virgin)

http://www.virginamerica.com/va/home.do

BEST MICRO SITE - T3

Every journey needs a Journal (THE WALL STREET JOURNAL)

http://journey.wsj.com/

BEST USER DEFINDED EXPERIENCE - andCulture

design my room (design my room)

http://www.designmyroom.com/

Permalink | 記事への反応(0) | 14:13

2008-05-17

■http://anond.hatelabo.jp/20080516052520

感想聞きたがった上に檻をすすめた増田です。「檻の外」の感想までありがとう。うれしいです。

「16になったら…」とか花冠とか、やっぱりグっとくるところは変わらないんだなあ。

「雨の日」は、芝からのはがきが来ているところが個人的に気に入っています。BLとはまったく関係ないところなんだけど、喜多川のことをただ同じ房の中で過ごしただけの人がこうやって気にかけてくれているのだな…と。

「なつやすみ」は人生に思いをはせてしまう…。犬とか和風建築とか、なんだか郷愁を誘う。

ところでこの2冊が出たあとにおまけプレゼント企画があって、「すすきのはら」という掌編が書かれています。５０代になった彼らが、堂野の母親の葬式を迎えて、養子縁組についてあれこれというエピソードなんだけど、これも人生の年輪を感じさせる良い作品でした。「すすきのはら」で検索をかけるともうちょっと詳しく紹介しているブログさんがひっかかるかな。

「LOOP」も「恋愛時間」ももう手に入りにくいのか…。とにかくこの業界は絶版が早くて残念。絶版になる前に増田に読んでもらえて本当に嬉しかったです。ありがとう。

Permalink | 記事への反応(0) | 10:38

2008-05-16

■http://anond.hatelabo.jp/20080514201248

木原音瀬読んでる増田です。

「檻の外」けっきょく買って読みました。これ2冊併せて読んだほうがいいわ、間違いなく。

檻の外

最初はまたホラー来た！と思ったけど、そんな単純じゃないですねコレ。

こんな痛くて昼メロみたいな展開なのに、煽りなしで淡々と、それでいてメリハリつけて語れるのはすごいと思います。

「十六になったら俺にくれ」のところとか、花冠のところとか、ひとつひとつのシーンも、ぐっとくるとこありました。

これは人に勧めたくなるのもわかる気がします。

雨の日

わりと自分のBLに対する先入観に近いタイプの作品ですねー。

正直、よくわからん！けどブリッジとしてはあるべきものなのかな、と思いました。

なつやすみ

このままピュアフル文庫のアンソロジーに入っててもいいくらいの清々しさ。

前作とあわせてのチルアウトというかクールダウンというか、そういう感じ？

この作者さん、「痛い」タイプの作品が多いんですよね。

BL以外も書いてくれとは思わないけど、こういう読後感いいやつは書いてほしいなあ。

すごいちゃんと書いてるなーと思ったのは、メインの二人がきちんと年を重ねているのが伝わってくるところ。

イニシエーション的にひとつの事件を超えて成長したり変貌したりっていうのはよくあるけど、

何年もかけていくつもの小さな出来事を超えてきてるっていうのを感じるのはそうそうないので、

やっぱり力のある人なんだな、と思う。

「箱の中」だけで止めてたらしばらくBLに手を出す気にはなれなかったと思うので、

「檻の外」まで読むのを勧めてくれた増田に感謝。もちろん最初に木原音瀬を教えてくれた元増田にも。

次はほかの人がすすめてた「LOOP」「恋愛時間」読んでみようかと思ったけど、入手難しそうですね。

Permalink | 記事への反応(1) | 05:25

2008-03-08

■書き手・読み手は、どこまで情報をコントロールする権利があるんだ？

Pipes: Rewire the webを使うと他人のサイトが簡単にスクレイピング出来てしまう。これまでスクレイピングするのにはほんのちょっとだけ技術的心理的障壁があった。今はそれすら要らない。loopとfetchだけわかればいい。広告を消すのも全文配信させるのも簡単に出来てしまう。

自前でplagger置いて加工するのはセーフ？

じゃあfeedreaderで読んでてgreasemonkeyで引っ張リ出すのは？

じゃあpipesは？

じゃあそれを公開するのは？

UTF-8ではないフィードを変換するのにwebサービスを使った。そのサービスが広告を差し込んでくるのは？

RSSに広告が差し込んであるのはウザい。それを消したものを公開するのは？

pipesがフィードに広告差し込んできたら？

他人のフィードのアフィリエイト IDを全部自分のものに書き換えて公開するのは？

他人のフィードに広告差し込んで公開するのは？

一度公開されてる情報だから好きにしていいだろ、これって通じるの？

取捨選択のロジック書いたら編集権が発生するの？

フレームの中に他人のサイトを入れるのと何が違うんだ？

他人様のフィードを改ざんして「作った」だのおこがましくね？

出来てしまう事に逆らうべきではないという思考停止。

便利だからいいじゃないかという思考停止。

考えてもよくわからないから他人に丸投げして思考停止。

やってはいけないことのような気がするから触れないという思考停止。

フィードって何なのだろう。

webサイトって何なのだろう。

お金の臭いや作為の臭いがするとうわって思うけど判断基準はそれでいいの？それだけなの？

フィードで全文配信しないサイトは絶滅すればいいと思ってる。でもそれとこれとは話が別だ。

拒否するにはhttpd.conf(.htaccess)にUA書くかmeta tagに書くかpipesチームにメールを出せってこいつは何様なんだ？Pipes - Frequently Asked Questions

webサイトの書き手は、読み手は、いったいどこまで情報をコントロールする権利があるんだ？

サーバ型のFeed Readerが過去から未来までフィードを無限に全部蓄積して、すべて全文配信してくれれば一切余計なこと考えなくて済むのに。

とりあえずこれは読んだ。

ニュースのRSSを全文配信で読む - ytsuchiyamaの日記

RSSのニュース全文配信は予告なく停止するかも知れません - ytsuchiyamaの日記

ICHINOHE Blog: Yahoo! Pipesによるニュースサイトの「強制全文配信」

Permalink | 記事への反応(2) | 01:29

2007-09-10

■Gauche によるもう少し効率的なバージョン

http://anond.hatelabo.jp/20070909231540

(define str "Hello world")

(let ((a 0))
  (let1 b (with-input-from-string str
	    (lambda ()
	      (port-fold
	       (lambda (c b)
		 (if (eqv? #\o c) (inc! a))
		 (+ 1 b))
	       0
	       read-char)))
    (print a " " b)))

あるいはこう。

(use srfi-1)

(define (times* e n)
  (map (lambda _ (e)) (iota n)))

(define-macro (with-gensyms var . body)
  `(let ,(map (cut list <> '(gensym)) var)
     ,@body))

(define-macro (with-gensyms* var n . body)
  `(let ((,var (times* gensym ,n)))
     ,@body))

(define-macro (port-vfold proc seed reader)
  (with-gensyms
   (loop %proc v)
   (with-gensyms*
    pr (length seed)
    (with-gensyms*
     npr (length seed)
     `(let ((,%proc ,proc))
	(let ,loop ((,v (,reader)) ,@(map list pr seed))
	     (if (eof-object? ,v)
	       (values ,@pr)
	       (receive ,npr (,%proc ,v ,@pr)
		 (,loop (,reader) ,@npr)))))))))

(receive (a b)
    (with-input-from-string "Hello world"
      (lambda ()		    
	(port-vfold
	 (lambda (c a b)
	   (values
	    (if (eqv? #\o c) (+ a 1) a)
	    (+ 1 b)))
	 (0 0)
	 read-char)))
  (print a " " b))

文字列操作関数って高価じゃね？

Permalink | 記事への反応(1) | 10:12

2007-08-22

■http://anond.hatelabo.jp/20070822165701

@data=(a,b,c);print@data

#!/usr/bin/perl
use strict;
my @data = qw(a b c);

my $cx = scalar @data;
my $si = 0;
my $ax;
LOOP:
    $ax = $data[$si];
    print $ax;
    $si++;
not --$cx or goto LOOP;

#!/usr/bin/perl
use strict;
my @data = qw(a b c);

package AtoH;
use base qw(Tie::Handle);
sub TIEHANDLE {
    my $class = shift;
    return bless {data => [@_]}, $class;
}
sub READLINE {
    return shift @{shift->{data}};
}

package main;
tie *ARGV, 'AtoH', @data;
while (<>) {
    print;
}

Permalink | 記事への反応(2) | 23:57

2007-07-11

■めいろさくせーぷろぐらむつくってみたー

http://anond.hatelabo.jp/20070711013155

人待ちの間暇だったから作ってみたよー。

さっくり作ったから無駄が多い気がするけど、とりあえず動いた。

全体が埋まったかどうかの判定をしないでひたすらまわしまくってるし、なんか綺麗な形じゃないけど、とりあえず投稿しちゃうよ！

これ綺麗な形にするの結構難しいんじゃないかな。面白いね。

class Maze
	class Box
		WALL = 0
		LOAD = 1
		def initialize(state = LOAD)
			@state = state
		end
		def is_wall?
			return true if @state == WALL
			false
		end
		def is_load?
			return true if @state == LOAD
			false
		end
		def set_wall
			@state = WALL
		end
		def set_load
			@state = LOAD
		end
	end
	TOP = 10
	RIGHT = 11
	BOTTOM = 12
	LEFT = 13
	def initialize(height = 100, width = 60)
		@height = height
		@width  = width
		@data = Array.new
		self.fillbox
		@counter = 1000
		@root = Array.new
	end
	def choose_random
		return rand(@width-3)+1, rand(@height-3)+1
	end
	def choose_direct
		t = rand(4)+10
		return t
	end
	def move(x, y, t)
		new_x = x
		new_y = y
		case t
		when TOP
			new_y -= 1
		when RIGHT
			new_x += 1
		when BOTTOM
			new_y += 1
		when LEFT
			new_x -= 1
		end
		return new_x, new_y
	end
	def make_load?(x, y)
		return false if x < 0 or y < 0 or x > @width-1 or y > @height-1
		return false if @data[x][y].is_load?
		true
	end
	def dead_end?(x, y, t)
		case t
		when TOP
			if make_load?(x-1, y) and \
				 make_load?(x-1, y-1) and\
				 make_load?(x, y-1) and\
				 make_load?(x+1, y-1) and\
				 make_load?(x+1, y) then
				 return false
			end
		when RIGHT
			if make_load?(x, y-1) and \
				 make_load?(x+1, y-1) and\
				 make_load?(x+1, y) and\
				 make_load?(x+1, y+1) and\
				 make_load?(x, y+1) then
				 return false
			end
		when BOTTOM
			if make_load?(x-1, y) and \
				 make_load?(x-1, y+1) and\
				 make_load?(x, y+1) and\
				 make_load?(x+1, y+1) and\
				 make_load?(x+1, y) then
				 return false
			end
		when LEFT
			if make_load?(x, y+1) and \
				 make_load?(x-1, y+1) and\
				 make_load?(x-1, y) and\
				 make_load?(x-1, y-1) and\
				 make_load?(x, y-1) then
				 return false
			end
		end
		true
	end
	def check_all?(stack)
		for i in TOP..LEFT do
			return false if !stack.include?(i)
		end
		true
	end
	def extend(x, y)
		@data[x][y].set_load
		check_stack = Array.new
		loop do
			t = choose_direct
			check_stack << t
			new_x, new_y = move(x, y, t)
			if enable_new_point?(new_x, new_y)
				if !dead_end?(new_x, new_y, t) then
					@root << ["ex", new_x, new_y, t]
					extend(new_x, new_y)
					break
				end
			end
			break if check_all?(check_stack)
		end
	end
	def enable_new_point?(x, y)
		return false if x<=0 or y <= 0 or x > @width-1 or y > @height-1
		return false if @data[x][y].is_load?
		true
	end
	def _make
		x = y = 0
		loop do
			x, y = choose_random
			break if @data[x][y].is_load?
		end
		@root << [x,y]
		extend(x, y)
	end
	def make_goal
		x = @width - 2
		y = @height - 1
		for i in 1..@width-3
			if @data[x-i][y-1].is_load? then
				@data[x-i][y].set_load
				break
			end
		end
	end
	def make_start
		for i in 1..@width-3
			if @data[i][1].is_load? then
				@data[i][0].set_load
				break
			end
		end
	end
	def make
		self.fill_all
		x, y = choose_random
		@root << [x,y]
		@data[x][y].set_load
		extend(x,y)
		while(!is_fill?) do
			_make
		end
		make_goal
		make_start
		self
	end
	def is_fill?
		@counter -= 1
		return true if @counter < 0
		false
	end
	def fillbox
		for i in 0...@width do
			@data[i] = Array.new
			for j in 0...@height do
				@data[i][j] = Box.new
			end
		end
	end
	def fill_all
		for i in 0...@width do
			for j in 0...@height do
				@data[i][j].set_wall
			end
		end
	end
	def output
		for i in 0...@height do
			for j in 0...@width do
				if @data[j][i].is_wall? then
					print "#" 
				else
					print " "
				end
			end
			print "\n"
		end
	end
end

Maze.new(30, 30).make.output

## output

# ############################
#  ##    # #     ##    #     #
##    ##   ## ## #  ##   ### #
### #  ###  #  #   #### ###  #
#   # ## ## ## ### #  #  #  ##
### #  #  #  #   #### ## # ###
##  ## ## ## ###   #  ## #   #
#  ### #  #   #### # ##  ## ##
# ## #   ####    #    # ###  #
#  # ###  # #### # ## # #   ##
##     ## #      #  ### ######
######  ### #######   ###    #
#    ##   ###   # # #   ## # #
# #######  #  # # # ###  ### #
#   # # ##   ##   #   ##   # #
### #    ######## ########   #
#   # ## ##     #    #     ###
# ### ##  ## ##   ##   ##### #
#      ##  # #  #  ###  #    #
# ######## # #####   ## # # ##
#       ## #  #  #####  # #  #
####### #  ## # ## #   ## ## #
##    ### ###   ##   ####### #
#  ##  ##   ## ##  ###    ## #
# ####  ###  # #  ## # ##    #
#  # ##   ## # # ###    ######
## #  # #  # # #   ## #    ###
#    ## ## #   # #  # # ##  ##
# # ##  ##   # # ##   #  ##  #
########################### ##

Permalink | 記事への反応(1) | 20:29

2007-05-11

■fizzbuzz.com

http://anond.hatelabo.jp/20070508170219 こいつをアセンブラで書こうとしていたが、

すでに

http://anond.hatelabo.jp/20070510170511 にそれっぽいものが書かれていた。

しかしデクリメントした直後に判定するならフラグですむがそうじゃないときはtest命令入れないといけないのでうまくいかんと思った。

とりあえず8086 アセンブラで書いてみたが長くなったので実行ファイル(fizzbuzz.com)をBase64で下に書いておくよ。

~) ls -al fizzbuzz.com
-a--rwx       98 May 11 03:28 fizzbuzz.com*

~) base64 < fizzbuzz.com
uwUDuQoJvl0B/s91ErcD/st1BrpSAesOkLpLAesWkP7LdQi6VgGzBesKkLg6OivBiQSL1rQJzSH+
zXXNtQr+yXXHulYBzSG0TM0hRml6eg0KJEZpenpCdXp6DQokVU0NCiQ=

数字の表示の処理で10で割った余りを使っていたのでまずいと思って修正した。ついでに98バイトまで縮めてみた。

こんなことに時間を使っている俺はバカだ。

ソースも載せとこう。8086なんてほとんど初めてに等しいので汚いだろうけど。


CODE	SEGMENT
	ASSUME	CS:CODE,DS:CODE
	ORG 100H
START:
	mov bx, 0305h
	mov cx, 090Ah
	mov si, OFFSET NUM
LOOP:
	dec bh
	jnz skip1
; 3の倍数だった
	mov bh, 3
	dec bl
	jnz skip2
; 3の倍数で5の倍数だった
	mov dx, OFFSET FIZZBUZZ
	jmp loop5
skip2:
; 3の倍数で5の倍数じゃなかった
	mov dx, OFFSET FIZZ
	jmp loopend
skip1:	
; 3の倍数じゃないとき
	dec bl
	jnz skip3
; 3の倍数じゃなくて5の倍数だった
	mov dx, OFFSET BUZZ
loop5:	mov bl, 5
	jmp loopend
skip3:	
; 3の倍数じゃなくて5の倍数でもなかった
; 数字を表示する。2桁でいい
	mov ax, 3A3Ah
	sub ax, cx
	mov [si],ax
	mov dx, si
	
loopend:
	mov ah,9
	int 21h

	dec ch
	jne loop
	mov ch,10
	dec cl
	jne loop

; 最後のBuzzを表示する
	mov dx, OFFSET BUZZ
	int 21h

	mov ax, 4c00H
	int 21h

	
FIZZ:		DB	'Fizz', 0dh, 0ah, '$'
FIZZBUZZ:	DB	'Fizz'
BUZZ:		DB	'Buzz', 0dh, 0ah, '$'
NUM:		DB	'UM', 0dh, 0ah, '$'
CODE	ENDS

	END START