DouKaku?beta

解答・コメントを送る方法

コメントを送るには2つの方法があります。
  • 匿名でコメントを書く
    ログインせずにコメントを書くことができます。 名前は「匿名」となります。
  • アカウントを作成してコメントを書く
    アカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
どちらの場合も投稿後の修正・削除はできないので、 投稿前によくご確認下さい。

投稿ボタンを押す前に以下の文章を確認してください

  • 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
    Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]
  • あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
  • 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
  • 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
  • これらのことにあなたはあらかじめ同意したものとみなされます。

Post comment

Post a comment to the following challenge: 起動オプションの解析 (Nested Flatten)

As a reply to the following comment: susu: OCamlはまだ文字コードがeuc-jp...(#7702) [show]

[hide]
OCamlはまだ文字コードがeuc-jpでないと日本語がコンパイルできません。
それと、実行結果が文字化けしたらコンソールをeucで起動してください。 
 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
(* lv -Oej xx.ml > xx-ej.ml  euc-jpでない場合の変換
   xterm -en euc-jp & 
   ocaml -I +extlib extLib.cma xx-ej.ml
*)(*
  スクリプト用途時
  #!/usr/bin/env ocaml
  #directory "+extlib";;
  #load "extLib.cma";;
*)

let get = OptParse.Opt.get
let opt = OptParse.Opt.opt
let switch t = if t then "ON" else "OFF"
let debug = function
  | Some (0 | 1 | 2 as n) -> string_of_int n
  | _ -> "-";;

let t = OptParse.OptParser.make ~usage:
  "cmdopt -o [-q] [-d{0|1|2}] 文字列 [文字列 ...]" ()
and o = OptParse.StdOpt.store_true () 
and q = OptParse.StdOpt.store_true () 
and d = OptParse.StdOpt.int_option ();;
OptParse.OptParser.add ~short_name:'o' t o;
OptParse.OptParser.add ~short_name:'q' t q;
OptParse.OptParser.add ~short_name:'d' t d;;

let opts_form = format_of_string "\
  [オプション情報] \n\
  o(output) : %s \n\
  q(quote) : %s \n\
  d(debug) : %2s \n\n"

let opts_info () =
  if not (get o) then 
    (print_string "-o オプションがありません。\n"; exit 0) 
  else
    Printf.printf opts_form
     (switch (get o)) (switch (get q)) (debug (opt d))

let params_info l = 
  Printf.printf 
    "[パラメータ情報]\n指定数 : %d \n" (List.length l);
  ExtList.List.iteri (fun i s ->
    Printf.printf "%d : %s \n" (i+1) s) l;;

let _ = 
  if !Sys.interactive then () else
  let rest = OptParse.OptParser.parse_argv t in
  (opts_info (); params_info rest);;
コメント本文
 形式 [?]
コード
 言語
タグ
半角スペースで区切って複数のタグを入力できます。
参考ページタイトル

参考ページURL
利用規約を読んで同意する必要があります。
by guest

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]