2008-03-24から1日間の記事一覧

foldコマンド

let version="0.1" let display_width = ref 80 let filenames = ref [] let spec = [("--width", Arg.Int (fun w -> display_width := w), "Set width of lines"); ("-version", Arg.Unit (fun () -> Printf.printf "fold in OCaml ver: %s\n" version), "D…

不覚にも吹いたwww

高槻やよいがIC定期券のタッチの仕方を教えてくれました ‐ ニコニコ動画:Q くだらねーwww追記。 改良版きてれぅー 【続】高槻やよいがIC定期券のタッチの仕方を教えてくれました ‐ ニコニコ動画:Q

wcコマンド

let version = "0.1" let display_byte_count = ref false let display_line_count = ref false let display_word_count = ref false let filenames = ref [] let spec = [("-c", Arg.Set display_byte_count, "Display the byte counts."); ("-l", Arg.Set …