ToDo:
なんか書いてて楽しいんだよなぁ。 なんでやろ。 ある程度理由はわかるが。
でもデータ構造の作り方がイマイチよくわからん。 ていうか OO 以外のデータ構造の作り方できんというか。
んでなぜか麻雀の上がり判定など。 もっと面倒かと思ってたんだけど案外簡単なんだな。 syuntsu がひどいとか List.append は遅いらしいとか色々あるけど。
http://shinh.skr.jp/t/agari.ml
あとは役の判定と点数計算とシャンテン数計算かねー。
(02:04)
camlPervasives__$40_166 ってなんやねん。
time seconds seconds calls ms/call ms/call name 22.22 0.06 0.06 592016 0.00 0.00 camlPervasives__$40_166 18.52 0.11 0.05 1271000 0.00 0.00 compare_val 7.41 0.13 0.02 238000 0.00 0.00 camlAgari__v2p_93 7.41 0.15 0.02 135005 0.00 0.00 camlList__sort_295 7.41 0.17 0.02 581 0.03 0.03 caml_oldify_local_roots
(02:27)
(02:30)
(02:37)
agari_patterns というかその inner に一瞬型書いた記憶が。 というのはコンパイルエラーの意味がよくわからなかったので… たしか
let rec inner te headed (cur : pai list list) =
とかとあとどっかもう一箇所入れた気が。 なんとなく1つだけ型残ってるのが気持ち悪かった上に 一度コンパイル通っちゃったらもう別に型いらないよなぁ とか思って消しちゃったわけですが。
(12:46)
type yaku = TSUMO | RICHI | IPPATSU | PINHU | TANYAO | IPEKO | HAKU | HATSU
とか書き始めて思ったけど、 これはダメな気がする。
だって enum みたいなもんですと言ってるけど数値にできないような。
| TSUMO -> "門前清自摸和" | RICHI -> "立直"
みたいなのは型安全だろうがなんだろうがなんかイヤだ。
type tsuhai = E | S | W | N | H | T | C
もダメだなぁと思いながらやってたわけだが。
範囲型か。 Ada がえらいのか。
(13:05)
# type tsuhai = E | S | W | N | H | T | C;; type tsuhai = E | S | W | N | H | T | C # (Obj.magic T)-(Obj.magic E);; - : int = 5
こうしてもいいよね！
(13:36)
http://acm.pku.edu.cn/JudgeOnline/problemstatus?problem_id=1001&orderby=clen&language=1
多倍長処理とかめんどいね。
(18:27)
http://acm.pku.edu.cn/JudgeOnline/problemstatus?problem_id=1001&orderby=clen&language=1
(21:11)
| 前 | 2006年 9月 |
次 | ||||
| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
全てリンクフリーです。 コード片は自由に使用していただいて構いません。 その他のものはGPL扱いであればあらゆる使用に関して文句は言いません。 なにかあれば下記メールアドレスへ。