Prolog 写経記 その 73 write_list_separated/3

Tech Prolog

(ほぼ) 毎日淡々と Prolog を写経します．元ネタはこちら．

Prologユーティリティライブラリ

Prologユーティリティライブラリ

今日は write_list_separated/3 を写経します．

解説

write_list_separated(List, Del, N) は List の要素を現在の出力ストリームに書き出す．ココの要素は Del によって仕切られて出力され，N 個のブランクで字下げされた新しい行に出力される．

ふむ．

モード

write_list_separated(+, +, +).

ふむ．

定義

では，こいつの定義を写経しませう．

write_list_separated([], _, _) :- !.
write_list_separated([X], _, N) :- !,
	nl, tab(N),
	write(X).
write_list_separated([X | List], Del, N) :-
	nl, tab(N),
	write(X),
	write(Del),
	write_list_separated(List, Del, N).

最初の節は停止条件．
次の節はリストの最後 (唯一) の要素を出力するもので，改行して N 個の字下げをして要素を出力してます．
最後の節はリストの先頭の要素を出力するもので，改行して N 個の字下げをして要素を出力して，残りの要素を再帰的に出力します．
またまたつまんね．

例

では使用例を写経しませう．

3 ?- write_list_separated([red, green, blue], ' ', 5).

     red 
     green 
     blue

Yes
4 ?- write('['),


    

            write_list_separated(
    

    

                [key(3, a), key(7, g), key(2, n)], ',', 3),
    

    

            nl, write(']').
    


[
   key(3, a),
   key(7, g),
   key(2, n)
]

Yes

またまたつまんね．

China GP M.Schumacher retired

Misc Sports F1

(ToT)
どうしちゃったの Michael．
スターティンググリッドに着く前にクラッシュなんて初めて聞いたよ．．．
そして SC が先導している周回で単独スピン．．．


Michael だけじゃなく，今シーズンを凝縮したようなレースでしたね．
先行逃げ切りの Alonso，追い込み不発の Kimi．
受難続きの Fisichella と Montoya．
Toyota の躍進と BAR の低迷．
またしても空回りのたっくん．
いろいろあった割には全体としては退屈な展開．．．


それにしても，McLaren と Renault に支配されたシーズンでしたね．
Renault の特徴は V キール，McLaren の特徴はゼロキール．
これだけが理由ではないのだろうけど，フロントウィングのルール変更で失ったダウンフォースを補うために攻めた 2 チームが躍進して，コンサバにセンターキールを選んだ他のチームを圧倒したという印象．
Toyota が残り 2 戦のために投入した TF105B はモノコックにセンターキールが残ってるけれどもサスペンションのレイアウトは McLaren 風のゼロキール．
来シーズンのトレンドになるんだろうなぁ．
ツインキールがトレンドになった時期に静観していた Ferarri はどうするのか，興味津々．
ともあれ (JW)，気持ちはもう来シーズンですよ！！

Inter 5 - 0 Livorno

Misc Sports Inter

＼(^o^)／
Juve に負けて以来，リーグ戦がお休みだったので悶々とした気分で過ごしてきたわけですが，全ての鬱憤を晴らしてくれる快勝！！
倍耐力恐るべし！！
そして Burdisso 復活おめ！！ ＼(^o^)／ ＼(^o^)／ ＼(^o^)／
Wome も W 杯予選のことは忘れよう！！
そして Coco (笑)．


それにしても，DF 陣がたいへんなことに．
Samuel の出場停止，J.Zanetti の故障などで手薄に感じたのも今は昔．
復活した Burdisso に続いて J.Zanetti も Mihajlovic も復帰が近いそうな．
両サイドは Favalli と J.Zanetti として，CB はどうするんだろう？
Cordoba，Materazzi，Samuel，Burdisso，Mihajlovic の中から 2 人しか出場できないわけで．．．
無難に Cordoba・Samuel かなぁ．
Materazzi も頑張ってるけどなぁ．
Burdisso にも期待してるんだけどなぁ．
Mihajlovic の FK も見たいんだけどなぁ．
うーみゅ．．．
うまくやってね，Mancini．

出演予定 TV 番組

Misc TV スケジュール

この近辺 (どこ？) で話題のモデルが出演するテレビ番組を分かるだけ掲載します．
新規分は赤字で (レギュラー除く)．直近分は太字で．

臼田あさ美
10/17 (月) 深夜 00:35〜01:05 NTV 「歌スタ！！」

CanCam 11 月号 エビちゃんベストセレクション 23

Misc EbiYuri

CanCam2005年11月号の蛯原友里ちゃん

CanCam から，お気に入りの蛯原友里ちゃんを紹介しようというこのコーナー．
今日はレッセ・パッセとのタイアップで「人気独占♥秋のスイートスタイル 6」から P452 の友里ちゃん．
2 ページに 6 つのスタイルなんですが，どれもかわいい友里ちゃんで満足度高し．
その中からややおすまし気味の Style 2 をセレクト♪
ちなみにコピーは「リボン付きワンピで清楚なお嬢さんスタイル」．
まさにお嬢さん♥
そんなわけで (どんなわけで？)，やっぱり CanCam 買うしか！！