[(LL future)(LL day and night)]/l{( )search exch 0 2 copy get -33 and put{pop l}if}def{dup l =}forall
% 出力
LL Future
LL Day And Night
% バイナリーエンコードする場合はこちらをエンコードしたものの方が短い
[(LL future)(LL day and night)]{dup{( )search exch 0 2 copy get -33 and put not{exit}if pop}loop =}forall
匿名
#6938()
[
PostScript
]
Rating0/0=0.00
PostScript 不真面目版。スペースが2個続くとエラーで止まります。
余談ですが、s/与力/余力/ ですね。
[(LL future)(LL day and night)]/l{( )search exch 0 2 copy get -33 and put{pop l}if}def{dup l =}forall % 出力 LL Future LL Day And Night % バイナリーエンコードする場合はこちらをエンコードしたものの方が短い [(LL future)(LL day and night)]{dup{( )search exch 0 2 copy get -33 and put not{exit}if pop}loop =}forallRating0/0=0.00-0+
2 replies [ reply ]