ポーカーの役判定 - argius note
久々にどう書く？orgに挑戦。既に半月前のですが、何とか自分でもヒントとか無しで解けそうだったのでやってみました。こういうのをLispかHaskellで、すらすら書けようになりたい。 本体はpoker_hand。それより下はテスト実行用。本体はごちゃっとしたのをすっきりさせたいところですが、時間切れです。 def poker_hand(card) # suits, numbers = card.split(//).partition do |c| c[/[SCHD]/] end suits = (0..4).collect do |i| card[i * 2, 1] end numbers = (0..4).collect do |i| " A23456789TJQK".index(card[i * 2 + 1, 1]) end.sort # 事前ソート # p suits, number
ポーカーの役判定 - argius note
最近ちょっとHaskellやる気が出てきたので、昨日の（どう書く？orgの）Ruby版をベースにHaskellで書いてみました。ふつけるの第8章までに登場するもの以外は、たぶんほとんど使っていません。 自分のHaskell力では、今のところこれが精一杯かな。なので、あまりきれいとは言えないコードですが、この状態で上げてしまいます。 import System import List import Char main = getArgs >>= print . pokerHand . head pokerHand :: String -> String pokerHand s -- cards | isFlush s && isRoyalStraight s = "Royal Flush" | isFlush s && isStraight s = "Straight Flush" | is
簡易データベースの実装 - argius note
配列の配列を、SQLを使って操作できるようにしたものを作ってみました。簡易なので、制限は山ほどありますが、一部は以下のようなものです。 SQLと言っても、限られたものしか使えない SELECT,UPDATE,INSERT,DELETE,WHEREと不完全な CREATE TABLE 内部値は全てString型 基本的にメモリ上で動作 ファイルを使う場合は、CSVを標準入力から読み込ませることはできます。 require "./database.rb" table = Database.new.create_table "stock", %w[ id name count ] while line = gets table << line.split(",") end pp table.db.sql( <<SQL ) SELECT NAME, count FROM stock WHERE N
ミシュランがどう言おうが、東京にロクな店はない？～『どうすれば本当においしい料理店に出会えるか』 西部一明著（評：麻野一哉）：日経ビジネスオンライン
去年、東京にミシュランがやってきた。「不当な評価」、「調査が雑」といった反論も多かったが、総じて東京のレストランのレベルが高いということに関しては異論がなかったようだ。中には、「パリよりも東京の方が上」という意見さえ目にした。 反面、去年は食の疑惑が噴出した年でもあった。いや、去年だけではない。ここ数年ずっとだ。もう何からはじまったのかすら忘れた。雪印、ミートホープ、不二家、白い恋人、赤福、船場吉兆と枚挙にいとまがない。 かたやフランス人も認める食の大国、かたや何を食べさせられてるのかすらわからない偽装の大国。いったい全体どうなってるのと思っていたおり、この本を読んだ。 のっけから手厳しい。 東京で（著者の言う）真っ当な店はやっていけない 〈残念ながら、たとえば東京の西洋料理店で、わたしのような人間から見て、本当に最高の状態を実現し、その自負を店自身も持っていると認めうる料理店は、実際のと
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
