2012-09-01から1ヶ月間の記事一覧

「入力して出力」を繰り返す

この手のも再帰使うのが定石なのかな。。。 #!/usr/bin/env ocaml open Printf;; let rec input_loop line = printf "%s\n" line; input_loop (read_line ()) ;; input_loop (read_line ());;

ドル→円変換

#!/usr/bin/env ocaml open Printf;; let conv dollar = let rate = 114.32 in let yen = rate *. dollar in let i_yen = int_of_float yen in (* printf "(%f)\n" yen; *) if (yen -. float_of_int i_yen) < 0.5 then i_yen else i_yen + 1 ;; let rec inpu…

capitalize

無力だ。 #!/usr/bin/env ocaml let capitalize c = let ic = int_of_char c in if 'a' <= c && c <= 'z' then char_of_int (ic - 32) else c ;; let ch = 'h';; print_char (capitalize ch);;

MySQLからMongoDBへレプリケーションする

ruby-binlogを使ったサンプル。mysql2mongo.rbは以下の通り。 #!/usr/bin/env ruby require "rubygems" require "binlog" require "mongo" # カラム情報はMySQLから取得した方がよいかも… TABLE_COLUMNS = { "employees" => %w(id name age), } def insert(e…