2017-07-27

Haskellでフィボナッチ数列

さっそくHaskellでプログラミングしています
なかなか新鮮でおもしろいですね

fib 1 = 1
fib 2 = 1
fib x = fib (x-1) + fib (x-2)

実行結果

ghci> fib 8
21
ghci> fib 10
55

Cで書いてもこんなもんですけどHaskellだと簡潔に書けますね

2017-07-27

いろいろ買い物＆スタジオ作りました

購入

今日は街に行ってフィギュアの撮影スタジオの材料とかを買いに行きました。
ついでに夏休みに使う予定の青春18きっぷも買っておきました！！たのしみです
東急ハンズで買い物しましたが、いろいろなものがあって目移りしましたね。
理化学コーナーにビーカーやらいろいろな実験用具が売っていて、専攻は違えどなかなかわくわくしました。
結局あまり買わなかったんですけどまた行きたいです。
さらに大きい書店に寄ってコンピュータの棚をみてると、関数型言語 Haskellの参考書『すごいHaskellたのしく学ぼう!』、
(通称すごいH本)が売っていたのでなかなか値は張りましたが買ってしまいました。関数型言語はまだ触れたことがないので楽しみです。
f:id:xxxasdfghjk999:20170727192027j:plain

うちに帰ったら早速スタジオを作りました。
ダンボールの床と壁に白い紙を貼り、上からUSB給電のLED光源で照らすだけの簡素なものです。
ダンボールの切り出しに苦戦しつつも完成しました。(わりとでかい
↓こんな漢字
f:id:xxxasdfghjk999:20170727192344j:plain

↓こんな漢字
f:id:xxxasdfghjk999:20170727193959j:plain

上から照らしてるだけなので正面からも照らしたいんですが、直接当てると影がなかなか目立ちます。
角のほうの影もちょっと問題なのでそのへんを直していきたいです

2017-07-26

ねこっかわいがり!クリア

エロゲクリア

ねこっかわいがり!全ルート読了しました！
ただのイチャイチャ美少女ゲームでないことは知ってましたが、なかなかの内容でした。
僕はクレイン先生が一番のお気に入りです。最近ロリが熱い。
気になる方は是非プレイしてみてください。店頭では見かけないのでDMMやDLsiteがおすすめです。
f:id:xxxasdfghjk999:20170726190223p:plain
次は大悪司です。期末テストがうまい具合に散らばってるから大丈夫...

2017-07-25

はてぶで数式を書く

備忘録

動的計画法のアレを書いてて数式がはてぶで書けたらいいなと思ったらどうやらTexが書けるようで
k's diary様のサイトを参考にしました↓
TeXで数式をはてなブログに表示する - k's diary

$TeXのコマンド$ で数式の表示
$\sum_{i=0}^n x_i$

DP\left\[k\right\]\left\[n\right\] = \displaystyle\sum_{(s∈S)} (DP\left\[k-1\right\]\left\[n\right\] \times DP\left\[k-1\right\]\left\[s\right\] \times EloRate(n,s))

$DP\left[k\right]\left[n\right] = \displaystyle\sum_{(s∈S)} (DP\left[k-1\right]\left[n\right] \times DP\left[k-1\right]\left[s\right] \times EloRate(n,s))$

$dp\left[left\right]\left[right\right] = 0 (left = 0 \land right = 0) \\ >自分のターンのとき\\ dp\left[left\right]\left[right\right] = max\{dp\left[left\right]\left[right-1\right] + b\left[B-right+1\right] ,dp\left[left-1\right]\left[right\right] + a\left[A-left+1\right]\} (left \neq 0 \land right \neq 0 のとき)\\ dp\left[left\right]\left[right\right] = dp\left[left\right]\left[right-1\right] + b\left[B-right+1\right] (left = 0のとき)\\ dp\left[left\right]\left[right\right] = dp\left[left-1\right]\left[right\right] + a\left[A-left+1\right] (right = 0のとき)\\ >相手のターンのとき\\ dp\left[left\right]\left[right\right] = min\{dp\left[left\right]\left[right-1\right],dp\left[left-1\right]\left[right\right] \}(left \neq 0 \land right \neq 0 のとき)\\ dp\left[left\right]\left[right\right] = dp\left[left\right]\left[right-1\right](left = 0のとき)\\ dp\left[left\right]\left[right\right] = dp\left[left-1\right]\left[right\right](right = 0のとき)\\$

>自分のターンのとき\\
dp\left\[left\right\]\left\[right\right\]  = max\{dp\left\[left\right\]\left\[right-1\right\] + b\left\[B-right+1\right\] ,dp\left\[left-1\right\]\left\[right\right\] + a\left\[A-left+1\right\]\} (left \neq 0 \land right \neq 0 のとき)\\
dp\left\[left\right\]\left\[right\right\]  = dp\left\[left\right\]\left\[right-1\right\] + b\left\[B-right+1\right\] (left = 0のとき)\\
dp\left\[left\right\]\left\[right\right\]  = dp\left\[left-1\right\]\left\[right\right\] + a\left\[A-left+1\right\] (right = 0のとき)\\
>相手のターンのとき\\
dp\left\[left\right\]\left\[right\right\]  = min\{dp\left\[left\right\]\left\[right-1\right\],dp\left\[left-1\right\]\left\[right\right\] \}(left \neq 0 \land right \neq 0 のとき)\\
dp\left\[left\right\]\left\[right\right\]  = dp\left\[left\right\]\left\[right-1\right\](left = 0のとき)\\
dp\left\[left\right\]\left\[right\right\]  = dp\left\[left-1\right\]\left\[right\right\](right = 0のとき)\\

配列の括弧の表示が面倒ですね...

2017-07-25

期末テスト

大学

嫌だねえ...！

2017-07-23

K-means法と画像の階調分類

プログラミング備忘録

K-means法とは類似したデータをいくつかのグループに分類するアルゴリズムの一つです。このアルゴリズムを利用して、画像の減色処理を行うプログラムを作りました。
この画像処理のコードについて、昔作ったjavaのコードですが引っ張り出してきました。

2017-07-21

AtCoder-Typical DP Contest C問題をやりました

プログラミング備忘録

C問題もやりました。
以下問題文
C: トーナメント - Typical DP Contest | AtCoder

Problem Statement
2K 人が参加するトーナメントがある。このトーナメントでは以下の形式で試合を行う。

第 1 ラウンドでは、1 と 2、3 と 4、…　が試合を行う。
第 2 ラウンドでは、(1 と 2 の勝者) と (3 と 4 の勝者), (5 と 6 の勝者) と (7 と 8 の勝者), …　が試合を行う。
第 3 ラウンドでは、((1 と 2 の勝者) と (3 と 4 の勝者) の勝者) と ((5 と 6 の勝者) と (7 と 8 の勝者) の勝者), ((9 と 10 の勝者) と (11 と 12 の勝者) の勝者) と ((13 と 14 の勝者) と (15 と 16 の勝者) の勝者), …　が試合を行う。
以下同様に第 K ラウンドまで行う。

第 K ラウンドの終了後に優勝者が決定する。人 i の Elo Rating が Ri であるとき、人 i の優勝確率を求めよ。

ただし、Elo Rating RP の人 P と Elo Rating RQ の人 Q が対戦した場合、人 P が勝つ確率は 1⁄(1+10(RQ−RP)⁄400) であり、異なる試合の勝敗は独立であるとする。
Constraints

1≤K≤10
0≤Ri≤4000

Input Format
入力は以下の形式で標準入力から与えられる。

K
R1
…
R2K

Output Format
答えを 2K 行出力せよ。i 行目は人 i が優勝する確率であり、絶対誤差が 10−6 以下のとき正当と判定される。

書いたソースは続きから↓