本履歴

購入した古本の履歴と時々プログラミング

あなごる Hello broken keyboard

今回のあなごるは面白かった。負けたけど、たまにはこういうのもいいなあ。使う文字の種類を少なくする・・・!
以下、自分のコードの変遷
begin write()end.は必須。beginとwriteの間をスペースかセミコロンか。

19.032

これしかないと思っていた時代もありました。新規導入文字は "Hlo,!

begin write("Hello, world!")end.

18.325

predに気づく。新規導入文字は;p^,1+

begin;write(pred(^;,11+11+11+11+1+1+1+1+1+1+1),pred(^;,11+11),pred(^;,11+1+1+1+1),pred(^;,11+1+1+1+1),pred(^;,11+1),pred(^;,11+11+11+11+11+11+11+1+1),pred(^;,11+11+11+11+11+11+11+11+1+1+1),pred(^;,1+1+1+1),pred(^;,11+1),pred(^;,1+1+1+1+1+1+1+1+1),pred(^;,11+1+1+1+1),pred(^;,11+11+1),pred(^;,11+11+11+11+11+11+11+11+1+1))end.

18.251

上のを改良

begin;write(pred(^),11+11+11),pred(^1,11+1),^,,^,,pred(^1,1+1),pred(^1,11+11+11+11+11+11+1+1+1),pred(^1,11+11+11+11+11+11+11+1+1+1+1),pred(^;,1+1+1+1),pred(^;,11+1),pred(^;,1+1+1+1+1+1+1+1+1),^,,pred(^1,11+1+1),pred(^1,11+11+11+11+11+11+11+1+1+1))end.

17.391

すぐ抜かされて、速攻chrに気づく。新規導入文字は;ch1+。ここで打ち止め。ぐぬぬ

begin;write(chr(11+11+11+11+11+11+1+1+1+1+1+1)+chr(11+11+11+11+11+11+11+11+11+1+1)+chr(11+11+11+11+11+11+11+11+11+1+1+1+1+1+1+1+1+1)+chr(11+11+11+11+11+11+11+11+11+1+1+1+1+1+1+1+1+1)+chr(111)+chr(11+11+11+11)+chr(11+11+1+1+1+1+1+1+1+1+1+1)+chr(111+1+1+1+1+1+1+1+1)+chr(111)+chr(111+1+1+1)+chr(11+11+11+11+11+11+11+11+11+1+1+1+1+1+1+1+1+1)+chr(11+11+11+11+11+11+11+11+11+1)+chr(11+11+11))end.