back numbers

7.11.2008

ゆの in Prolog

元ネタが分からないし表示を眺めても楽しさが伝わらないのだが、とりあえずPrologでも書ける事を示す必要を感じたので。なお、組込み述語を書き換えているので実行には注意すること。

:- encoding(utf8).
:- redefine_system_predicate('<'(_, _)).
:- op(1100, yfx, '<').
% '<'/2
'<'(X/_/X, Msg) :- atom_concat('ひだまりスケッチx365 ', Msg, X).

?- X / _ / X < '来週も見てくださいね!'.

X = 'ひだまりスケッチx365 来週も見てくださいね!'.

もしかすると最も短いんじゃないだろうかと思うのだが。あと、'<'の方が顔に見えるのだが..

0 件のコメント:

tags

Profile

Taito, Tokyo, Japan
明けども明けども次の埒
hiro.kosh@gmail.com