challenge Hello, world!その2

「Hello, world!」と表示するプログラムを作ってください。 ただし、コード中に同じアルファベットが2回出現してはいけません。

アルファベットとは、小文字のa-zと大文字のA-Zを指すものとします。また、大文字と小文字は区別するものとします。つまり、記号や空白文字は何度出現しても構いませんし、小文字のgと大文字のGの両方を使うのは構いません。

単純な「print "Hello, world!"」はrとoとlが2回以上使われているので題意を満たしません。

この問題はHello, world!の上級編です。

HSP では文字列以外の大文字小文字の区別がないので、区別しないでやってみました。”いかれ具合”は高いと思います。小さなウィンドウが 34 個出ますので、実行するときは気をつけてください。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
_0(   0 ) =  31,  13,  11,  73,  38,  44,  48,   8,  78,  16,  11,  69
_0(  12 ) = 111,  51,  37,   9, 138,  35,  10,  22, 112,  28,  32,  11
_0(  24 ) = 108,  33,  10,  46, 110,  74,  30,  10, 161,  10,   9,  74
_0(  36 ) = 193,   9,   9,  72, 228,  32,  27,   9, 249,  37,  12,  39
_0(  48 ) = 225,  76,  31,  10, 221,  36,  10,  44, 273,  77,  15,  11
_0(  60 ) = 280,  84,   7,  14, 335,  44,   9,  40, 359,  33,  12,  51
_0(  72 ) = 338,  80,  53,   9, 383,  47,  14,  45, 412,  36,  31,   8
_0(  84 ) = 438,  39,   9,  43, 412,  78,  29,   7, 405,  41,  12,  40
_0(  96 ) = 461,  34,   9,  53, 464,  44,  29,  10, 503,  10,   8,  73
_0( 108 ) = 564,  10,  10,  78, 540,  40,  28,   9, 532,  45,  11,  39
_0( 120 ) = 536,  76,  32,  10, 592,  13,  12,  52, 591,  75,  14,  12

_1 = 0
do
    bgscr _1 + 1, _0( _1 + 2 ), _0( _1 + 3 ), 0, _0( _1 + 0 ), _0( _1 + 1 )
    _1 += 4
until _1 > 128

Posted feedbacks - PostScript

PostScript です。#2273 のリンク先とは別の手で。ターミナルでなく紙等への出力も可能です。 コメント部分は動作に関係ないので文字重複は無視してやって下さいませ。 3行目の cvx exec (あるいは cvx def) さえアルファベット以外の文字で定義してしまえばあとはやり放題ということで。
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
%!PS
% /! (cvx exec) cvx def
/! (\143\166\170 \145\170\145\143) cvx def  
% (/Times-Roman findfont) !
(/\124\151\155\145\163-\122\157\155\141\156 \146\151\156\144\146\157\156\164) !
% (32 scalefont) !
(32 \163\143\141\154\145\146\157\156\164) !
%  (setfont) !
(\163\145\164\146\157\156\164) !
% (100 100 moveto) !
(100 100 \155\157\166\145\164\157) !
% ((Hello, world!) show) !
((\110\145\154\154\157, \167\157\162\154\144!) \163\150\157\167)  !
% (showpage) !
(\163\150\157\167\160\141\147\145)  !

Index

Feed

Other

Link

Pathtraq

loading...