めざましテレビ
今日の早耳ムスメは木下ココちゃん，お題は「流行を先取り！！ 今年の勝負ブーツ」．
ウェスタンにクシュクシュ，そしてムートン．．．
そうですか，今年はボリュームのあるタイプがトレンドですか．
あんまり好みじゃないなぁ．いいけど．
それにしてもココちゃん，そのデニムミニ短すぎ！！
ブーツに目が向かいませんでしたよ．
ソファに座ってるところなんて超ヤバイ．
ブーツを履き替えるとき大丈夫だったんでしょうか？ (何が？)
ともあれ (JW)，ハイライトはこれ．
「靴ひもがサテンのリボンになって，すごいかわいいよー」
やっぱりココちゃんは「〜ですよぉ」よりこっちの方が似合ってる気のせいが．
で，スタジオですが．．．
せっかく編み出したウェストから下を写さないフレーミングもブーツには通用せず．
そしてよりによって一番ボリュームのあるムートンブーツをナカミーが．
ナカミー．．． スタジオが一瞬ゲレンデに見えたよ．．．
Prolog 写経記 その 50 ale/2
(ほぼ) 毎日淡々と Prolog を写経します．元ネタはこちら．
- 作者: ボグダンフィリピッチ,中島誠,伊藤哲郎
- 出版社/メーカー: 海文堂出版
- 発売日: 1990/08
- メディア: 単行本
- 購入: 4人 クリック: 33回
- この商品を含むブログ (68件) を見る
ale/2 を写経します．解説
ale(X, Y)はアトムXとアトムYとがアルファベット文字列として等しいか，アルファベット順にみてXがYより前にあるときに成功する．
ale ってアレやコレの ale じゃなくて (無理矢理)，ASCII の less equal ですね．
Java でいうと．．． String#compareTo(String) で結果が 0 以下 (≦) みたいな．
モード
ale(+, +).
ふむ．
定義
では，こいつの定義を写経しませう．
ale(X, Y) :- name(X, L), name(Y, M), ale_ASCII(L, M). ale_ASCII([], []). ale_ASCII([], [_ | _]). ale_ASCII([H | Q], [H | S]) :- !, ale_ASCII(Q, S). ale_ASCII([X | _], [Y | _]) :- X < Y.
えーっと，最後の不等号の向き以外，age/2 と同じなので以下略．
っていうか，
ale(X, Y) :- age(Y, X).
じゃダメなのかなぁ？ (^^;
例
では使用例を写経しませう．
2 ?- ale('Word', 'Word').
Yes
3 ?- ale(predicate, pred).
No
4 ?- ale('Jane', 'John').
Yes
5 ?- ale(-13.7, -13.7).
Yes
最後の例，写経本では冷たく No と言われてお終いなんですが，以下略．
Inter 1 - 0 Rangers
＼(^o^)／
最近，得点力不足な感じですねー．
出演予定 TV 番組
情報なしですぅ．．．
