EmacsからAOJにサブミットする

Emacs Lisp 初挑戦。
Emacs から Aizu Online Judge (AOJ) にサブミットする Emacs Lispを描いてみた。

SRM470 Div1 Medium

500
これから引く線同士、既に引かれている線同士、引かれている線と引く線同士の3つに分けて考える。

SRM472 Div1 Easy

250
5でmod

SRM525 Div1 Medium

525
もし、ある時点で知っている噂が1種類だけなら、それを伝えた方が日数がかからないのは明白。
ただ、1日に伝播されられる噂は1つだけ。
同時に2つの噂を知ったときに、どうすれば最適なのかは簡単には分からなそう。
しかし、２つの噂のどちらを先に伝えるかは2^N通りしかないので、全パターン試せる。

SRM525 Div1 Easy

300
O(N^6)の全通りでも間に合う。

UVa12209

UVa12209
dp[配置済みの行数]

UVa12202

UVa12202
最大30×30のグリッド上に障害物とワープホールがある。
障害物の無い上下左右に隣接したセルに移動できる。
ワープホールに侵入すると、時間T (-10000 <= T <= 10000)を消費して別の場所に飛ばされる。
スタート地点からゴール地点まで到達可能であれば、(負の値になろうとも)最短時間を出力する。
到達できない場合は、どう到達できないのかを判定してゴニョゴニョ。

ベルマンフォードみたいに、値の更新を充分繰り返して試す。

UVa11610

UVa11610
初BIT(Binary Index Tree)
もう少し賢い実装ができなかったものかと、反省。