偏った言語信者の垂れ流し

■[FreePascal]ゆの in FreePascal

ゆの in Ruby - 冬通りに消え行く制服ガールは?夢物語にリアルを求めない。 - subtech

ゆの in Perl - Bulknews::Subtech - subtech

Big Sky :: ゆの in Python

ゆの in C++ - wata_d's diary

矢野勉のはてな日記

ゆの 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 来週も見てくださいね!

追記

_の最初の代入をなしにした。

型が使えて演算子オーバーロードできるってなかなかいいかもしれない。

Permalink | コメント(0) | トラックバック(0) | 18:54