ゆの in FreePascal

ゆの in Ruby - 冬通りに消え行く制服ガールは✖夢物語にリアルを求めない。 - subtech
ゆの in Perl - Bulknews::Subtech - subtech
Big Sky :: ゆの in Python
ゆの in C++ - wata_d's diary
http://d.hatena.ne.jp/t_yano/20080711/1215747589
ゆの in Squeak Smalltalk - Smalltalkのtは小文字です
これはやらないとだめだと思ったけどDelphiの演算子オーバーロードがあれなのでFreePascalで。

program yuno_in_fpc;

type
  A = record
    s: string;
  end;

operator < (s1: A; s2: string) b: boolean;
begin
  WriteLn(s1.s + s2);
  b := True;
end;

operator / (s1: A; s2: string) b: A;
begin
  b.s := 'ひだまりスケッチ';
end;

operator / (s1, s2: A) b: A;
begin
  b.s := s1.s + '×365 ';
end;

var
  X: A;
  _: string;
begin
  X / _ / X < '来週も見てくださいね!'
end.

$ fpc yuno_in_fpc.pp
$ ./yuno_in_fpc 
ひだまりスケッチ×365 来週も見てくださいね!

追記

_の最初の代入をなしにした。
型が使えて演算子オーバーロードできるってなかなかいいかもしれない。