Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(出力)改行付きプリント
(出力)標準出力
(出力)標準エラー出力
(出力)書式付きプリント
(分岐)if~elseを使う
(繰り返し)無限ループ
(繰り返し)for文を使う
(繰り返し)foreachを使う
コマンドライン引数(その１)
関数(メソッド)を使う
タプル/構造体を使う
無名関数を使う
(計算)四則演算
(計算)商と余りを求める
(計算)商と余りを同時に求める
(計算)銀行まるめ四捨五入
(計算)小数点以下切り捨て
(計算)小数点以下切り上げ
(計算)べき乗を計算する
(計算)平方根
(変換)10進数->16進数
(変換)10進数->8進数
(変換)10進数->2進数
(変換)16進数->10進数
(変換)2進数->10進数
(文字列)文字列を連結する
(文字列)小文字->大文字 変換
(文字列)大文字->小文字 変換
(文字列)文字列の長さを得る
(文字列)文字列を左右反転
(文字列)10進文字列->数値 変換
(文字列)16進文字列->数値 変換
(文字列)文字列の一部を取り出す
(文字列)文字列を分割する
(文字列)一文字毎に分割する
(リスト/配列)リスト/配列
(リスト/配列)要素数
(リスト/配列)末尾に要素を追加
(リスト/配列)先頭に要素を追加
(リスト/配列)最初の要素
(リスト/配列)N番目の要素
(リスト/配列)2番目以降の要素
(リスト/配列)順序を反転
(リスト/配列)要素の位置
(リスト/配列)リストの結合
(リスト/配列)要素の総和
(リスト/配列)MAPで各要素を処理
(リスト/配列)リスト内包表記で各要素を処理
(リスト/配列)ZIP
(リスト/配列)UNZIP
(リスト/配列)並び替え(ソート)
(連想配列)連想配列(辞書)を使う
外部コマンドを実行する
(テキスト)標準入力を読み込んで表示
(テキスト)全行一括読み込み
(テキスト)ファイル読み込み
(テキスト)ファイル書き込み
(テキスト)改行コードを取り除く
(テキスト)全行左右反転
(テキスト)ファイル行数を数える
(バイナリ)ファイル読み込み
(バイナリ)ファイル書き込み
(ジェネレータ)数列を生成
(ジェネレータ)オール0バイナリファイル
(ジェネレータ)連続数値バイナリファイル
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリのファイル一覧
(ファイル)ディレクトリ作成
(ファイル名)パスからディレクトリ名取得
(ファイル名)パスからファイル名取得
(ファイル名)拡張子を取り除く
(ESC)コンソール画面クリア
乱数を使う
説明のないとってもシンプルなサンプルプログラム集
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

Haskell > 2進数を10進数へ変換する

    bin2dec.hs 

1
2
3
4
5
6
7
8
import System.Environment
import Data.Char
main = do args <- getArgs
          print (bin2dec (head args))
bin2dec lis = truncate (inner_bin2dec (reverse lis) 0)
inner_bin2dec [x] n = (read [x]) * 2 ** n
inner_bin2dec (x:rest) n = (read [x]) * 2 ** n
                         + (inner_bin2dec rest (n+1))
$ runghc bin2dec.hs 01100100
100
$

  * 確認環境 Debian Linux(Wheezy)