DouKaku?beta

challenge 変数の初期値 

WEB+DB 43のRecent Perl Worldを読んで知りました。

変数を初期化するに当たってPerlでは
my $var ||= 'foo';
とかきます。この不備を補うためPerlの5.10には
Defined-or演算子が実装されたそうです。
$zero //= 25;
このような変数のデフォルト設定を行う方法を各種言語ではどうかくのでしょうか。
post comment

Posted feedbacks - PostScript

PostScript における「変数」というのが微妙なところですが、
カレント辞書に名前と値のペアを登録することだと解釈しました。

GS>/a 10 def
GS>/a 20 DefaultValue 
GS>/b 30 DefaultValue 
GS>a =
10
GS>b =
30

1
2
3
4
5
6
7
8
%!PS
/DefaultValue { % Symbol val DefaultValue -
  currentdict 2 index known {
    pop pop
  } {
    def
  } ifelse
} bind def

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]