Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
01 Hello World!
02 コメントを使う
03 文字列を表示する
04 文字列を表示する(標準出力を指定)
05 文字列を表示する(標準エラー出力)
06 書式付き文字列を表示する
07 分岐処理を行う
08 分岐処理を行う(else if)
09 繰り返し処理(永久ループ)を行う
10 繰り返し処理(for)を行う
11 繰り返し処理(while)を行う
13 繰り返し処理(foreach)を行う
14 多岐選択を行う
16 商と余りを求める
17 べき乗を計算する
18 乱数を使う
19 引数を使う
20 関数を使う(メソッドを使う)
22 標準入力で受けた文字列を表示する
25 テキストファイルから文字列を読み込む
26 テキストファイルへ文字列を書き込む
37 アルファベットの小文字を大文字にする
38 アルファベットの大文字を小文字にする
39 文字列の長さを得る
41 文字列を数値に変換する(10進文字列)
45 文字列の一部を取り出す
46 文字列を分割する
49 連続する数を生成する
50 連続する数を生成する(16進数)
51 正規表現を使う
52 正規表現を使って置換する
53 カレントディレクトリを取得する
54 ファイルやディレクトリの存在を調べる
57 コンソール画面クリア
58 日時を得る
59 基準日からの連続した日付を得る

説明のないとってもシンプルなサンプルプログラム集
BashC言語JavaPerlPythonRubyTcl

Tcl > 基準日からの連続した日付を得る

    dateseq.tcl

set base [clock scan {2013-01-30} -gmt true]
for { set i 0} {$i < 10} {incr i} {
	puts [clock format $base -format {%Y-%m-%d %A}]
	set base [expr $base + 60 * 60 * 24]
}

$ tclsh dateseq.tcl
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$