■ 連載

関数プログラミングの妙味
和田 英一（IIJ 技術研究所）
wada@u-tokyo.ac.jp

連載開始にあたって
3 月までの連載，プログラム・プロムナードは ICPC (ACM 国際大学対抗プログラミングコンテスト ) の問題を解いてみせ，ICPC への参加を奨励しようとするものであった．したがって学会の電子図書館でもプロムナードはだれでも見られる．ところが連載が 3 年も続くと，すでに取り上げたのに似たような問題が多く残り，執筆陣の士気も振わなくなってきた．
一方，ACM は別のプログラミングコンテストも開催している．ICFP (International Conference on Functional
Programming) の Programming Contest といい，第 1 回は 1998 年に MIT で開かれた．2002 年のコンテストでは東大米澤研のメンバが優勝している．
ICPC はある会場に集まり，5 時間で 8 題近くを解く．会場キャパシティの制約から世界大会には多くの予選を経た代表だけが集まるのだが，ICFP PC はインターネットで参加し，解答時間も 72 時間と大盤振舞いであり，言語は
なんでもよいと鷹揚である．ただし関数プログラミングの研究会の主催だから，Haskell が増えているらしい．72 時間あるということは，それなりに問題が巨大なわけで，2004 年にはアリの脳をシミュレートする有限オートマトンの状態遷移図を作るというのであった ．
1)

左様な次第で，4 月からは ICFP PC を目指し，関数プログラミング言語 Haskell の話を何人かで分担して連載したい．といっても Haskell を完全に説明するのではなく，関数プログラミング言語でプログラムを書くとこのような調子になる，という感じが分かっていただければとりあえずはよい．詳しいことは必要になったら説明することにな
ろう．なんだまた関数プログラミングかといわず，騙されたと思ってつきあってほしい．関数プログラミングはプロ
グラミングの原点なのだから．

関数プログラムは簡潔，明快
そもそも関数プログラミングの功罪については以前から巷間にかまびすしかった．しかしその議論をここでは繰り返さない．スウェーデン Chalmers 工科大学の John Hughes の書いた "Why Functional Programming Matters"

2)

があり，これを見るのが手っ取り早い．そこでの数値計算や人工知能の例題は Miranda によっており，Haskell ではな
いが，関数プログラミングの雰囲気は十分に分かる．この文献も，山下によるその和訳も Web から取ることができる．
一 方，Haskell の 入 門 書 も Web か ら 得 ら れ る．Yale 大 学 の Paul Hudak 他 に よ る "A Gentle Introduction to
Haskell 98''

3)

が懇切で，これも山下の和訳とともに Web から取れる．

IPSJ Magazine Vol.46 No.4 Apr. 2005423

新しい言語を使い始めるときは，覚えることはかなりあるが，それはプログラムを巧みに書くための投資である．
もちろん語学と同じで，プログラミング言語もしばらく使わないと錆びてくるから要注意．
まず面白い例から．たとえば Haskell の解説によくある例を借りれば n の階乗はproduct [1..n]である．[1..n] は 1 から n までの整数のリスト [1,2,3,...,n] を生成し，product は乗算の単位元 1 に引数を次々と掛ける関数である．0 の階乗は [1..0] で，これは空リスト．したがって結果は 1 となる．Haskell で何種類もの階乗プログラムを書いた楽しい話は The Evolution of a Haskell Programmer にある．
4)

Haskell のクイックソートは劇的だ．
quicksort []quicksort (x:xs)= []= quicksort [y | y <- xs, y<x]++ [x]++ quicksort [y | y <- xs, y>=x]

ここには定義が 2 つある．1 行目は引数が空の場合を定義する．[] が空リスト．2 行目は空でない引数の場合を定義する．引数 x:xs は ( 空かも知れぬ ) リスト xs の前に xs の要素の型の x を cons (: で表す ) したものである．引数にこういう構造が書けるのも特徴である．右辺に現れる ++ はリストの append である．[y | y <- xs,
y<x] は xs の要素 y で，y<x なるもののリストを意味する．
したがって，空でないリスト x:xs のクイックソートは，先頭の要素を x, 残りを xs とし , 1) xs の要素で x 未満のものをクイックソートしたものと，2) x をリストにした [x] と，3) xs の要素で x 以上のものをクイックソート
したものを append すればよい．再帰的にクイックソートするリストはだんだん短くなり，最後に空リストのクイックソートは 1 行目の定義で空リストになる，と読む．
世の中のクイックソートに比べると，驚くほど簡単である．その理由の 1 つはリストの先頭の要素 x を比較の対象にするからである．周知のように，すでにソートされているリストを再びソートすると，悲劇が起きる ( リストの長さを n として n の時間がかかる ) という脳天気なプログラムであることに注意しよう．しかし明快なことは理解
2

できる．

Backus の FP
関数プログラミングの歴史には，Lisp から始める文献もあるが，1977 年の Turing 賞を受賞した John Backus は
CACM 誌に「プログラミングはフォン・ノイマン・スタイルから解放されうるか ?
イルとそのプログラム代数」という長大な論文

5)

関数型プログラミング・スタを送って FP を提案し，これを関数プログラミングの嚆矢とするのがよさそうである．von Neumann ボトルネックという語もここで登場した．
しばらく記法が変わるが我慢してほしい．f を x に作用させるのを FP では f : x のように書く．したがって 2 の階乗は ! : 2 となる．その階乗の定義は
Def
where

!  eq0 →�� 1;   [id, !  sub1]Def

eq0  eq  [id, 
0]Def

sub1    [id, 
1]のように書く ( は関数の合成，
0, 1 などは何をもらってもそれぞれ 0, 1 などを返す関数 )．こう定義してから 2 の階乗をやってみる．
!:2
 { 階乗の定義を引数 2 に作用させる．! の定義を代入 }(eq0 → 1;   [id, !  sub1]) : 2

 { 引数を分配する (b → c ; a は McCarthy の条件式 if b then c else a)}424

46 巻 4 号

情報処理2005 年 4 月

(eq0 : 2) → (1 : 2);(  [id, !  sub1] : 2)

ところでこの条件式の述語部分は
eq0 : 2= {eq0 の定義を代入する }(eq  [id, 0 ]) : 2
 { は関数合成だから }eq : ([id, 0] : 2)
 {[f1,…, fn] : x   f1 : x,…, fn : x, 関数の並び ( 組立て ) の引数への作用は結果が並ぶ }eq :  id : 2, 
0:2
{id : x  x, 
0 : x  0 (id と 
0 の定義 )}
eq :  2, 0 {eq は 2 つの引数が等しいか見る }F … {F は偽のこと．階乗の計算の方はまだまだ続くが後略 }Backus の論文は関数形式のプログラミングだけでなく，Laws of the Algebra of Programs というものを登場させた．任意の関数 f, g, h について[f, g]  h  [f  h, g  h]
g と h の合成の組立てである，
つまり，関数の組立て [f, g] と関数 h の合成は，
関数 f と h の合成と，というように読む．
もちろん証明もついている．
([f, g]  h) : x
 { 合成の定義による }[f, g] : (h : x)
 { 組立ての定義による } f :(h : x), g : (h : x) { 合成の定義による }(f  h) : x, (g  h) : x{ 組立ての定義による }[f  h, g  h] : x
今ではこういう証明は当たり前だが，当時は新鮮であり驚きであった．こういうことができるのも関数プログラミ
ングなればこそである．
その後 Robin Milner の ML(meta language の意 ) ，David Turner の Miranda など，関数プログラミング言語が
6)

7)

いくつも登場した．ML は型推論を特徴としていた．一方 Miranda は遅延評価 (lazy evaluation) と非正格 (nonstrict)
関数を提供した．
Haskell については言語設計委員会が 1987 年にでき，4 版まで更新した．1997 年におおむね完成し，似たようなものがたくさんあると，どれを使ったらよいか分からず，関数プログラミングの発展にも支障になるので，Haskellの更新作業も終結させた．そして 1998 年に規格としてまとまったのが Haskell 98 である．これからの関数プログラミング言語は Haskell 98 だけを知っていればよいことになる．Haskell 98 の報告書は Journal of Functional
Programming の特別号として 2003 年 1 月に刊行され，単行本としては Cambridge University Press から出ている．
Web でも見られる ．
8)

Hugs を使う
Haskell を使うには，標準的な処理系が 2 つある．

IPSJ Magazine Vol.46 No.4 Apr. 2005425

• Hugs: Haskell Users Gofer System (http://www.haskell.org/hugs/)• GHC: Glasgow Haskell Compiler (http://www.haskell.org/ghc/)
試してみるには解釈系が楽なので Hugs を使おう．Hugs ではまず前もってエディタを使いスクリプトを作り，次に Hugs を呼び出してセッションを始める．スクリプトのファイル名には Haskell script の意味で .hs をつける．簡
単な階乗のスクリプトの例をファイルを cat して眺める ( コメントは {-, -} の間，または -- と行末の間に書く )．
% cat factorial.hs
factorial:: Integer -> Integer{-factorial の型は Integer をもらい Integer を返す -}factorial n= if n == 0 then 1
else n * factorial (n - 1)

次に Hugs を起動すると以下のような ASCII アート状の画面がでる．いまのプログラムを実行してみる .
% hugs____ __ __ _______|||| || || || || ||__||___|| ||__|| ||__|| __||||---||
___||
||
||
||
|| Version: November 2003_________________________________________
Hugs 98: Based on the Haskell 98 standard
Copyright (c) 1994-2003
World Wide Web: http://haskell.org/hugs
Report bugs to: hugs-bugs@haskell.org_________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions
Type :? for help
Prelude> :l factorial.hs
Main> factorial 103628800
Main> :q[Leaving Hugs]%

Prelude> は基本関数を定義している Prelude というモジュールの動作中を示す．:l factorial.hs はスクリプ
ト factorial.hs をロードする指令．:q は Hugs 終了の指令である .

関数プログラミングの復習
最初に関数プログラミングをさらっと復習する．ある機能は Haskell だけのものである．

• 再帰呼出しこれはほとんど説明を要しない ( 手続き型言語でもできるが )．再帰呼出しは基本中の基本である．例はクイックソートにすでにあった．

• 第一級身分の関数 first class status function
関数を引数として関数に渡せる．また関数を結果として関数から返せる．関数プログラミングなので当然か．Lisp
系の言語でもでき，Scheme なら関数を引数に渡す例は map で，map は第 1 引数に関数を，第 2 引数にリストをもらい，リストの各要素に関数を作用させた結果のリストを返す．
> (map factorial '(1 0 2 3))(1 1 2 6)

一方，Haskell ではいまの階乗の関数を利用しPrelude> :l factorial.hs
Main> map factorial [1,0,2,3][1,1,2,6]関数を返す例は Curry 化である．add のような通常 2 引数をとる関数は add 1 3 のように使う．このとき add
1 までで次に受け取る引数に 1 を足す関数が返ると解釈する．add 1 3 では返ってきた関数を 3 に作用させ，結426

46 巻 4 号

情報処理2005 年 4 月

果は 4 になる ( だから (add 1) 3 なのだが関数は左に結合するのでかっこは不要 )．
したがって add は「引数 1(Integer) をもらい，(3(Integer) をもらって 4(Ingeter) を返す ) 関数を返す」という意味で Integer ->(Integer -> Integer) の型と考える．-> は右に結合するとして，通常はこのかっこを省き，add の型を Interger -> Ingetger ->Integer と表記する．このように 2 引数の関数を，1 引数をもらい 1 引数の関数を返すと考えることを Curry 化 (currying, Curry 化された関数は curried function) という．
Haskell はこの機構を考えた Haskell B. Curry のファーストネームである．

• 多相型 polymorphic typing
似たような型のクラスに対し，演算を決めることができる．Integer も Float も Num 型クラスで，そのクラスのいずれの型にも乗算 * が使えるように一括で定義できる．
(*) :: Num a => a -> a -> a

• リストの内包表記 list comprehension
これもクイックソートに登場した．別の例では
Prelude> [[x,y]|x<-[1..3],y<-[2..4]][[1,2],[1,3],[1,4],[2,2],[2,3],[2,4],[3,2],[3,3],[3,4]]

y を 2, 3, 4 と変えながら x を 1, 2, 3 と変え，[x,y] のリストを作る．

• 引数のパターンマッチ
同じくクイックソートにあった．引数が [] のときの定義とそれ以外 x:xs のときの定義が分けて書いてあった．
さらにこの場合は引数のリストの car を x, cdr を xs として定義の本体で使えるのが嬉しい．次の例は引数を 0と 0 以外に分けて定義している．
factorial 0 = 1
factorial n = n * factorial (n - 1)

これはfactorial n|n == 0= 1|otherwise = n * factorial (n - 1)のようにガードを使って書いてもよい．

• 遅延評価 lazy evaluation
Lisp では関数を引数に作用させるとき，まず引数をすべて評価してからそれを関数に渡す．いわゆる作用的順序(applicable-order) である．評価しないようなものは特殊形式といって例外扱いである．したがって> ((lambda (x y) x) 1 (/ 1 0))

は y は使わないにもかかわらず 0 で割ったと叱られる．
一方，必要なときにだけ引数を評価するのを遅延評価とか lazy evaluation といい，Haskell はその陣営にいる．
[0..] は 0, 1, 2,… と無限のリストを返すが ,Prelude> take 4 [0..]の例では，take 4 が先頭から 4 個だけを要求するから，4 から先は計算せず，結果は[0,1,2,3]となる．

• 副作用対応関数プログラミングの最大の泣きどころは入出力を含む副作用である．式の中の部品の式はどの順に評価してもよ
いというのが特徴だったが，そういう部品の式に出力指令があると，評価順に出てくるから，滅茶苦茶になってしまう．Haskell はシリアルに計算を進めるメカニズムの monad を考案し，これを解決したといっているが，関数型を一部手放したというべきであろう．Lisp にも最初から prog があった．

• 2 項演算子と関数名
Lisp 系言語の関数呼出し，関数作用ははすべて演算子をリストの先頭に書く．(+ 1 2 3 4) も (plus 1 2 3

IPSJ Magazine Vol.46 No.4 Apr. 20054274) も区別はない．Huskell では 2 項演算子も自由に使える．ただし 2 項演算子は + や ++ のように特殊記号だけで構成し，被演算子の間におく．したがって優先順位を決める必要がある．関数作用より弱い．
一方演算子 ( というか関数名 ) を先頭におく方法ももちろんあり，関数名は英字が主力になっている．しかし 2項演算子を関数名として使う方法や関数名を 2 項演算子とする方法も用意してある．
Prelude> 1 + 3
4Prelude> (+) 1 3
4
Prelude> min 1 3
1Prelude> 1 `min` 3
1{- 2 項演算子をかっこで囲むと関数名になる -}{- 関数名をバッククォートで囲むと 2 項演算子になる -}• λ式
primes = sieve [2..]where sieve (s:ss) = s : sieve (filter (\x -> x `mod` s > 0) ss)のスクリプトで 25 個の素数を計算するとMain> take 25 primes[2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97]\x -> が  x. に相当する．[2..] つまり 2, 3, 4… に sieve を作用させると素数列 primes が得られる．sieve
はもらってきた引数 s:ss の先頭 s と，( 残り ss を Bool 型の関数 (\x -> x `mod` s > 0) でフィルタし，
再び sieve にかけたもの ) を cons すると読む．Bool 型の関数の方は ss から順にもらった要素を x とし，x をs で割った剰余 > 0 と読む．

車両のソート問題
お話だけでは面白くないので，例題をやってみよう．Donald Knuth の The Art of Computer Programming, 第 3
巻の演習問題 5.2.4-19 である ( 図 -1 左 )．
図 -1 右を見て欲しい．同じような図が 8 つある．左上から右へ A, B, C, D. 左下から右へ E, F, G, H とする．これは図左のように 1 番線から 3 番線まで行き止まりの線が U ターン線で接続されているところを示す．0 番線に 0 から
7 まで番号のついた車両がいる．路面電車と思えばよい．3 本の線をスタックとして使い，3 番線の左の出口から 0号車から順に車両を出すにはどうするか．そのプログラムを書くのである．

�
�
�
�
�
�
�
�
��� ��� ��� ���
�

���

���

���

�
�
�
�
�
�
�
�
��� ��� ��� ���
�

�
�
�
�
�
�
� �
��� ��� ��� ���
�

�
�
�
�
�
�
� �
��� ��� ��� ���
�

�
�
�
�
�
�
�
�
��� ��� ��� ���
�

�
�
� �
�
� �
�
��� ��� ��� ���
�

�
�
�
�
�
� � �
��� ��� ��� ���
�

�
�
� �
� � � ���� ��� ��� ���
�

�
�
�
�
�
�
�
�

���

図 -1

n
一般に n 番線まであれば，2 両をソートすることができる．図 -1(E) は上半分の 4 両が 3 番線に昇順に収まった

ところである．昇順というのはここから発車する順が増加するという意味である．
上段と下段は上半分の 4 両と下半分の 4 両について同じように処理している．ところどころ車両の下に横線が引い

428

46 巻 4 号

情報処理2005 年 4 月

てあるが，その上を処理するという意味だ．
まず 0 番線の 3 号車を 1 番線に入れる (B)．1 番線と 0 番線の横線の上は昇順になっていると思い，昇順にマージ
して 2 番線に入れる．U ターンするので 2 番線には降順に収まる (C)．続いて 0 番線の 4 を 1 番線に入れる (D)．2,
1, 0 番線に降順に車両がいるから，降順にマージして 3 番線に入れる (E)．同様にして H では 3, 2, 1, 0 番線に昇順に車両が入った．そこで昇順にマージしながら出口から発車させる．
プログラムは以下のようになった .
decMergen, incMergen:: [[Int]] -> [Int]-- 整数のリストのリストをもらいリストを返す
decMergen (xs0:xs1:[]) = decMerge2 xs0 xs1-- リストが 2 つのとき マージ
decMergen (xs0:xs1:xss) = decMergen ((decMerge2 xs0 xs1):xss)-- 3 つ以上のときincMergen (xs0:xs1:[]) = incMerge2 xs0 xs1
incMergen (xs0:xs1:xss) = incMergen ((incMerge2 xs0 xs1):xss)
decMerge2, incMerge2
decMerge2 [] ys
decMerge2 (x:xs) []decMerge2 (x:xs)(y:ys)| x>y| otherwise
incMerge2 [] ys
incMerge2 (x:xs) []incMerge2 (x:xs)(y:ys)| x<y| otherwise:: [Int]->[Int]->[Int]= ys= x:xs-- 2 つのリストのマージ Curry 化-- 前のリストが終った-- 後のリストが終った= x:(decMerge2 xs (y:ys))= y:(decMerge2 (x:xs) ys)= ys= x:xs-- 小さいほうを出力へ= x:(incMerge2 xs (y:ys))= y:(incMerge2 (x:xs) ys)

decSort, incSort :: Int -> [Int] -> [Int]-- データ長 ソートするリスト 結果リスト
decSort n cs
| n == 2= decMergen ([head cs]:[tail cs]) -- 2 つのとき リストにしてマージ| otherwise = decMergen (xs:ys)-- 4 つ以上のとき 途中で半分にwhere xs = reverse (incSort n2 (take n2 cs))-- 前半をソート
ys = decMove n2 (drop n2 cs)-- 後半を分配
n2 = n `div` 2
incSort n cs
| n == 2= incMergen ([head cs]:[tail cs])
| otherwise = incMergen (xs:ys)
where xs = reverse (decSort n2 (take n2 cs))
ys = incMove n2 (drop n2 cs)
n2 = n `div` 2
decMove, incMove :: Int -> [Int] -> [[Int]]-- スタックに分配する
decMove n cs
| n == 2= [head cs]:[tail cs]| otherwise = xs:ys
where xs = decSort n2 (take n2 cs)-- 途中で半分に 前半ソート
ys = decMove n2 (drop n2 cs)-- 後半 分配n2 = n `div` 2
incMove n cs
| n == 2= [head cs]:[tail cs]| otherwise = xs:ys
where xs = incSort n2 (take n2 cs)
ys = incMove n2 (drop n2 cs)
n2 = n `div` 2
cars8 :: [Int]cars8 = [3,1,4,5,2,6,7,0]-- テスト用データ

このプログラムはもちろん n が 2 の冪乗でないとうまくいかない．Int は有限の整数の型，drop n は take n

IPSJ Magazine Vol.46 No.4 Apr. 2005

429

の逆でリストの先頭から n 個を削除する．昇順と降順の両方が出てくるので，マージもソートも incMerge とか
decSort のように両用の構えに作ってある．c を inc か dec として cMergen は任意の本数のソート済みのリスト
を 1 本にマージする．cMergen の実働部分は 2 本のマージで cMerge2 で定義している．
cSort と cMove の最初の引数は対象の車両数を示す．たとえば 8 両の cSort は 4 両を cSort し，U ターンのた
め reverse をかけ (3 番線に入れる )，(2 番線以下に ) 残りの 4 両をおく cMove 4 の結果に : で cons し，それをcMergen している .
だんだんと n が半減し，2 になると別の処理をしている．定義を条件付きに書くには，前にも例があったが縦棒でガードを作る．実行結果は以下の通り．
Prelude> :l railstack.hs
Main> incSort 8 cars8[0,1,2,3,4,5,6,7]
Main> decSort 8 cars8[7,6,5,4,3,2,1,0]亦楽しからず乎．
参考文献
1) http://www.cis.upenn.edu/proj/plclub/contest/index.php
2) 原文 http://www.md.chalmers.se/˜rjmh/Papers/whyfp.html
和訳 http://www.sampou.org/haskell/article/whyfp.html
3) 原文 http://www.haskell.org/tutorial/
和訳 http://www.sampou.org/haskell/tutorial-j/index.html
4) http://www.willamette.edu/˜fruehr/haskell/evolution.html
5) Backus, J.: Can Programming Be Liberated from the von Neumann Style? A Functional Style and Its Algebra of Programs, CACM, Vol.21, No.8,
pp.613-641.
www.stanford.edu/class/cs242/readings/backus.pdf でも見ることができる．
翻訳は bit, Vol.11, No.9, pp.14-29, No.10, pp.19-32, No.11, pp.52-61, また 赤摂也編 : ACM チューリング賞講演集 , 共立出版 (1989). 米澤明憲による原著の紹介は会誌 43 巻 9 号の名著名論にある．
6) Milner, R., Tofte, M. and Harper, R.: The Definition of Standard ML, The MIT Press (1990).
Milner, R. and Tofte, M.: Commentary on Standard ML, The MIT Press (1991).
7) Turner, D. A.: Miranda: A Non Strict Functional Language with Polymorphic Types, in Functional Programming Language and Computer
Architecture, LNCS 201 (Sep. 1985).
8) Jones, S. P. ed.: Haskell 98 Language and Libraries, The Revised Report, Cambridge University Press (2003).
原文 http://www.haskell.org/definition/haskell98-report.pdf
和訳 http://www.sampou.org/haskell/report-revised-j/index.html（平成 17 年 2 月 18 日受付）

430

46 巻 4 号

情報処理2005 年 4 月