Simple Sand Samples

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

---

TOPへ

Hello World!(各言語のTOP)

(文字列)文字列の長さを得る

(文字列)文字列を左右反転

(文字列)10進文字列->数値 変換

(文字列)16進文字列->数値 変換

(文字列)文字列の一部を取り出す

(文字列)文字列を分割する

(文字列)一文字毎に分割する

(リスト/配列)リスト/配列

(リスト/配列)要素数

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

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

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

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

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

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

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

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

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

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

外部コマンドを実行する

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

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

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

(テキスト)ファイルを行番号付きで表示

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

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

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

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

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

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

(ファイル)ディレクトリ存在チェック

(ファイル名)パスからディレクトリ名取得

(ファイル名)パスからファイル名取得

(ファイル名)拡張子を取り除く

(ESC)コンソール画面クリア

乱数を使う

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

---

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

OCaml > テキストファイルを左右反転して表示する

    rev.ml

1
2
3
4
5
6
7
8
9
10
11
let print_reverse src = 
    let len = String.length src in
    let dst = String.create len in
    for i = 1 to len do (dst.[i - 1] <- src.[len - i]) done;
    print_endline dst;;
let read filename =
    let f = open_in filename in
    try 
        while true do print_reverse (input_line f) done
    with End_of_file -> ();;
read "sample.txt";;

$ ocamlc rev.ml
$ ./a.out
elppa   1
ananab   2
ydnac   3
$