Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(文字列)文字列の一部を取り出す
(文字列)文字列を分割する
(文字列)一文字毎に分割する
(文字列)分割文字列を結合する
(文字列)インデックスを得る
(リスト/配列)リスト/配列
(リスト/配列)要素数
(リスト/配列)末尾に要素を追加
(リスト/配列)先頭に要素を追加
(リスト/配列)最初の要素
(リスト/配列)N番目の要素
(リスト/配列)2番目以降の要素
(リスト/配列)最後の要素
(リスト/配列)順序を反転
(リスト/配列)リストの結合
(リスト/配列)リストの差分
(リスト/配列)要素の総和
(リスト/配列)MAPで各要素を処理
(リスト/配列)ZIP
(リスト/配列)UNZIP
(リスト/配列)並び替え(ソート)
(テキスト)標準入力を読み込んで表示
(テキスト)ファイル読み込み
(テキスト)ファイル書き込み
(テキスト)ファイルを行番号付きで表示
(テキスト)全行左右反転
(テキスト)ファイル行数を数える
(バイナリ)ファイル読み込み
(バイナリ)ファイル書き込み
(ジェネレータ)数列を生成
(ジェネレータ)数列を生成(16進)
(ジェネレータ)オール0バイナリファイル
(ジェネレータ)連続数値バイナリファイル
(正規表現)置換する
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリのファイル一覧
(ファイル)ディレクトリ作成
(ESC)コンソール画面クリア
(日付時刻)今日の日付を得る
(日付時刻)現在の時刻を得る
(日付時刻)日付と時刻を得る
乱数を使う
指定時間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

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

    nl.scm 

1
2
3
4
5
6
7
8
9
10
(use slib)
(require 'printf)
(define filename "sample3.txt")
(define p (open-input-file filename ))
(define (cat num)
	(let ((str (read-line p)))
		(cond ((not (eof-object? str))
			(printf "%6d %s\n" num str)
			(cat (+ num 1))))))
(cat 1)
$ gosh nl.scm 
     1 cccc 50
     2 cccc 200
     3 bbbb 900
     4 bbbb 800
     5 aaaa 3000
     6 aaaa 2000
$ 

  * 確認環境 Debian Linux(Wheezy)