Simple Sand Samples

プログラミング言語サンプル集

---

TOPへ

Hello World!(各言語のTOP)

(リスト/配列)末尾に要素を追加

(リスト/配列)先頭に要素を追加

(リスト/配列)最初の要素

(リスト/配列)N番目の要素

(リスト/配列)2番目以降の要素

(リスト/配列)最後の要素

(リスト/配列)順序を反転

(リスト/配列)要素の位置

(リスト/配列)リストの結合

(リスト/配列)リストの差分

(リスト/配列)要素の総和

(リスト/配列)MAPで各要素を処理

(リスト/配列)リスト内包表記で各要素を処理

(リスト/配列)ZIP

(リスト/配列)UNZIP

(リスト/配列)並び替え(ソート)

(連想配列)連想配列(辞書)を使う

(テキスト)標準入力を読み込んで表示

(テキスト)ファイル読み込み

(テキスト)ファイル書き込み

(テキスト)改行コードを取り除く

(テキスト)全行左右反転

(テキスト)ファイル行数を数える

(テキスト)列挙した数の合計を求める

(テキスト)CSVファイル読み込み

(バイナリ)ファイル読み込み

(バイナリ)ファイル書き込み

(ジェネレータ)数列を生成

(ジェネレータ)数列を生成(16進)

(ジェネレータ)オール0バイナリファイル

(ジェネレータ)連続数値バイナリファイル

(ジェネレータ)ランダムバイナリファイル

(ファイル)カレントディレクトリ取得

(ファイル)ディレクトリのファイル一覧

(ファイル)ディレクトリ作成

(ESC)エスケープシーケンス

(日付時刻)今日の日付を得る

(日付時刻)現在の時刻を得る

(日付時刻)日付と時刻を得る

乱数を使う

MD5(128bit)ハッシュ値を求める

指定時間sleepさせる

(プロセス間通信)受信処理

---

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

Erlang > CSVファイルを読み込む

    read-csv.erl

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
main(Args)->
    Filename = lists:nth(1,Args),
    {ok,S}=file:open(Filename, read),
    getlines(S).
getlines(S) ->
    case io:get_line(S,"") of
    eof -> ok;
    String ->
        Lis=re:split(chomp(String),","),
        lists:foreach(fun(M)-> io:format("~3s",[M]) end,Lis),
        io:format("~n"),
        getlines(S)
    end.
chomp([]) ->[];
chomp([H|T]) ->
    case T of
        "\n" -> [H];
        _ -> [H | chomp(T)]
    end.

$ cat sample.csv
1,2,3,4,5,6,7,8,9
2,4,6,8,10,12,14,16,18
3,6,9,12,15,18,21,24,27
4,8,12,16,20,24,28,32,36
5,10,15,20,25,30,35,40,45
$ escript read-csv.erl sample.csv
  1  2  3  4  5  6  7  8  9
  2  4  6  8 10 12 14 16 18
  3  6  9 12 15 18 21 24 27
  4  8 12 16 20 24 28 32 36
  5 10 15 20 25 30 35 40 45
$

  * 確認環境 Debian Linux(Wheezy)