インタプリタは楽勝で書けたんですけど(一応仕様以外見てないです)、肝心のgrassコードを書ける気が全くしません。 WWwwwでxが用意できて、そこから1インクリメントするのにWWWw,WWWWw,WWWWWw...しかないんじゃないでしょうか。 そもそもトップが56バイトっ…

Adaでもビット操作の方が短くなった。言語の得意分野ですらこの始末……。 こりゃUTF-9が普及しても、Adaの普及は望めませんね……。 先に検証しとけよって話だ。 死にたくなったので銀猫行ってきます。

試しにDで書いてみたら普通にビット操作のほうが短かった。こりゃスクリプト言語なら100バイト切るな……orz バイト境界をまたぐpacked配列が使えないと長くなるはずという単なる思いこみオチでした。終了。

もう露骨にAdaのLanguage Rankingを上げるためだけの問題を出題しました。正直ごめんなさい。 ieee754では予想外にRubyが短かった*1ものの、なんとかCに一位をキープして貰えてスクリプト言語を落とす目標は達成。 まあそんなわけで、今回は密かに暖めていた…

http://golf.shinh.org/p.rb?delete+blank+lines#Ada Dさんは96バイト。今見たら77まで縮んでます何事でしょうか。 私は↓で102バイト。 with text_io;use text_io;procedure a is s:string:=get_line;begin if s>""then put_line(s);end if;a;end; これ以上…

古きよきPascal文字列なので、255文字までしか入らなかったりしますよ。readlnで1行読み込むと255文字で切り捨てられるよ。どーしろと。*1 スライス構文が使えたりしてアリかなあと思いかけてたのですが、やっぱ使えない、GNU Pascalも酷いよ、酷い。 Pascal…

open#1,"/dev/stdin" ... if eof(1)then... とかでできましたけどそんな。ひ、ひどい。ハンデにしては理不尽過ぎる。順当に行けばHaskellに勝てる言語なのにっ。BASICをHaskellの上に持ってこようと目論んでたのにっ。http://golf.shinh.org/lranking.rbでAv…

ここに、Dさんの70バイトの解があるのですが……。 http://golf.shinh.org/p.rb?echo#Ada ううむ、2日考えてたんですが、わからん……。 with text_io;use text_io;procedure a is begin put_line(get_line);a;end; だけで71バイト到達してしまいます。*1 GNAT.I…

http://golf.shinh.org/p.rb?Hamming+Numbers#Ada Boostさんに追いつけねー。

Ada.Text_IOではなく単なるText_IOを使う Integer'Image(X)ではなくAda.Integer_Text_IO.Put(X,1);を使う (GCC限定) でもX'Imgで済む時はそっちを使う > goto L;は他の長ったらしい制御文と比べ相対的に短い 頼み込んで-gnat05付けてもらったのでGet_Line(S,…

programヘッダーは省略できる IntegerではなくWord型を使う WriteLnではなく文字列に#10を挟んだ方が短くなる場合も (GNU Pascal限定) Copy(a,x,y-x+1)ではなくa[x..y]と書く とても哀しいことにGNU Pascalの組込み関数はDelphiほどリッチでは無い。具体的に…

Yabasicという処理系があります。 http://www.yabasic.de/ これが、BASICとして如何に酷いかをつらつら書きたいと思います。 NEXT J,Iができない。 FOR I=1TO 8:FOR J=I+1TO 9:...:NEXT J,I 'ふつーのBASIC FOR I=1TO 8:FOR J=I+1TO 9:...:NEXT:NEXT 'Yabasi…